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Mangier du nogettil din Commodore 64? 

VI HAR PET 

ADMINISTRATIVE SYSTEMER 



COMFINANS 



version 
2.0 




Pinansbogholderict til Commodore 64. dcr er ble- 
Vet en bestseller i lobe! af el ar. Over 250 svsicmer 
kerer pa nuvarendc lidspunki. 
COMFINANS cr blc-vct forbedret igen. ved at 
m;m kan fa udskrift af en konto pa skwrm. samt en 
saldobalance til enhver tid. Hasiighoden er ogsa 
blevel forage i. 

Kitpacitcl:T200 posteringerpr. periode,3(X)konti. 

Og priscn er del bedste 
veddet hele.Fwrkr. 2.095.- NU Iff. 



1.595 



version 
2.0 




rakturasystemel til Commodore 64 dcr ikkc har 
nogen konkurrent. 

Fakturering, koniuudlog. renteberegning. lager 
og mcget mere. Program mel kan k we selvsitendigt 
efier integreres med COMFINANS. 
Kapaeiiet: 250 kunder, 250 varer. 

Begge sysiemer samlet kun Rr. 2.995,- 



SP/ENDENDE UDVIDELSER 




Parallel Printer 
Interface mwmK miner 

Med dctlc interface kan man tilslutte 
mesten enhver parallel printer til $\n 
Commodore 64. Den tilsluttes den 
sericlle udgangog benyuer 
ikke noget software. *M ^\J1 

Prls kr. Ill \J*T 



COM-IN 64 

Et hell nyt produki Ira MCH. 
COM-IN 64 er et kommunika- 
tionsinterface med factlitet som 
folgendc: 

CW, RTTY.TEXT. MODEM. 
MAILBOX. AFSKOUT. 
Kommunikalionsinterfacet til 
begynderen og den 
professionelle. 

Pris kr.l 



3.039 



Eprom braender 

Herer Din Eprom brarnder nl 
Commodore 64. 
Softwure er na- 
turligvis med i 
prise n. Bnendc- 
ren kan hrxndc 
eprom lyper fra 2508 til 27128. 
Endvidcre medftflger der Eprom- 
kort til tilslutning af de Eproms 
man har brand! ■ -f O A Q 





80 tegns tekst- 
behandlingskort 

Her far Du et St) tegns kort med DANSK tckst- 
behandling Endelig kan man se 80 tegn pa 
skxrrncn. nar man skrivcr sine breve, hndvi- 
dere bar den et digital! ur, fastfrysning af 

Pris kr. lit HO 



Eprom sletter 

Eprom slctteren kan slctie op til 
fire Eproms 
;id gangen og 
arbejder f uld- 
stxndig 
uafhamgig at 
compuieren. 



Prls kr. 



707 




Motherboard 

Tilladcr tilslutning af flere modu- 
ler af en gang. F.eks. 80 tegns 
kort og Simons Basic. 
Motherboard cne er naturligvis 
med nmskifter 

2portc 241 j" 

5portc741 j- 



DE BEDSTE B0GER 



fra 1st Publishing (Data Becker) 



Tricks & Tips 

Bogcn giver ideer li I. hvordan man 
lavercftckrive programmer, ved brug 
af ulalliec pmgraineksempler. Den 
danncr naKgrund for bcsning af storrc 
opgavcr. Priskr. 248,- 
Tnckv and Tips disk med 
alle programmer kr. 85,- 



Adv. Machine _y 
Language H * 

1 1 : ■ i ■ i ■. lw>ger en fortswltclse ul 
Machine Language bogcn. oggar 
mere i dvhdcii med miiskinprogram- 
mcring. bogen er uundvterlig for den , 
Midi ou<,ker at bllve bedre i ai pro- 
grammereimoskinkodc Priskr.24B,- 



Anatomy of 64 

Bogcn gar fuldsuenilig i dybden nwd 
Commodore M og dens virkemnde. 
Den har f.eks. en ocialjeret ROM lisi- 
ning med forkluring. Desudcn mange 
eksemplcr pa programmer 
siimiinkan prwvedcl hclc 
i praksis Priskr. 248,- 
Boecn enhver Commodore 
cjer burdc have. 



Idea Book 0 

Bogcn cr en foiMsittle-lse 

tfl Tricks & Tips. Den hjarlpcrcnigang 
med stone programme ringsopgavcr 
og an alyscrcr forskellige Sltfrre 
programmer. Bogen der skullc sto pa 
Dinliylde. Priskr. 248,- 



Anatomyof the 1541 

Bogcn giver en fuldsiamdie besknvel- 
w af, hvordun Du hedsi udnyiter lil 
din VC 1541. Bogen i ride holder dev 
uden cn total ROM-listning af 
DOS "en Bogen man ikke 
kan tindvitrc Prls kr. 248,- 



Graphics Book 

Har du problemer med ai * 
lave grafik pa Din Commodore 64. 
Ikkc mere! Bogen har eksemplcr pa. 
hvordan man kan brugc htt)oplris~ 
ningsgralikkcn pa CommodnreM. 
Priskr. 248,- 



Machine Language 

Ma-skinipn.>esprogrammcring er 
ydersi flcksibcll og megci hurtigere 
end Basic. Bogcn cr en begynderbog 
og fortsllcrcwn de grundlxggendc be- 
arcbcrindcnlor maskin- 
M.<den< 0rtskcr Du at lirrc 
maskinkode hcrcr bogcn 
du har dromi am. 
Priskr. 248,- 




Peeks & Pokes 

Bogen cr cl opslags- 
vark til HI hrugc alle dc nyttige adrc* 
scr, dcr findes pa Commodore 
Denne bog omnandler dct, mange 
Commodore M ejere harsavnet. 
Pris kr. 225,- 
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Fremtiden 



Computere har noget med fremtid 
at gore, og Commodores slogan 
gar da ogsa pa fremtiden - den, der 
allerede er begyndt. Sikke noget 
vrovl. men det lyder meget godt. 

Vi prover her i RUN at leve i nu- 
tiden og have fingeren pa pulsen. 
Samtidig vil vi gerne vsere med til at 
forme fremtiden, og specielt vil vi 
gerne forme fremtiden for RUN, sa 
vi fortsat er Danrnarks forende 
Commodore blad. 

Vi har sendret lidt i vores navn, 
idet vi ikke laengere kalder os Com- 
modore-magasin, men fremover for 
RUN Commodore-tvo/Vd. 

Et navn sendrer intet ved bladet, 
men vi onsker hermed kraftigere a! 
markere vort Internationale tilhors- 
forhold, der i fremtiden vil smitle 
mere af pa vore redakttonelle sider 
i form af mere dugfriske nyheder. 




Men del store sporgsmal er sta- 
dig laeserene. For at finde ud af, om 
vore laesere foretrgekker saglsg in- 
formation frem for overfladisk pop, 
har vi Isengere inde i bfadet anbragt 
et sporgeskema, som vi haber, at 
mange vil returnere til os, sa vi pa 
det grundlag kan rette vore fejl og 
styrke vore staerke sider. 

RUN Software Club har kun eksi- 
steret i kort tid. men interessen har 
vaeret enorm, og der er ingen tvivl 
om, at denne aktivitet opfylder eJ 
stort behov nu og fremover. 

Vi haber. at laesefne vil vsere med 
til at forme RUN, og for at vende 
tilbage til slogans, kunne vi sige: 

Commodore - fordi fremtiden al- 
lerede er begyndt. 

RUN - fordi vi selv bestemmer 
over fremtiden. 



FUTURE line 




PRjESENTERER! 

ARABISK TEKST l.l CBM &>/SX 64/128 
Arabrsk lekstbehandllng 

H VC a STAR SG'tOq' ^ SkKmi ° 9 Pnnter <MPS 801 ' Seikosna GP1 00 

- Ca'loMekst ■ mange r&fll 9 erm 9 s "iuligh«def 

- SammenHetning af flere lekslef 

- OcSkkommandoer 

- Dansk. Engelsk & Pakistansk instruktton medlolger 

Disk med TURBOLAOER. Pris kr. 598,- 
DATEX MOUSE lil CBM 64/SX 64M28. 

Grafiktegneprogram mod musstynng i slil med MMAC DRAW tit MACIONTOCH 

- Har ICON'S & "PULL DOWN' menuer 

Dump tegnifiger/iayouis p5 EPSON kompatibel & CBM pnnie* 

- Beslar aimus. Bind og Disk, saml engelsk manual 

r?AT£^ l l «££pr pu,or Wt 2 P 10 ?' 8 " 1 : flu n^r du investerer i 

UAIfcX MUUbt. er ud over del sa?dvonlige Det kan nemllg alt" 

PRIS Kr. 1.395,- 

TREBES TEKST V 20 til CBM 64/SX 64/ 1 23 

Pressen skrevom V 1.0 at det danske tekstbehandlingsprogram- 

HUN nr 2 Maden hvorpa Trebes berundler fnarolnet, ma siqes nt v»re en 

nyskabelse 

Berl Tid. "Synes vi ikke at under kr. 5O0 er oyrt for et tekstbehand- 
iingssystern der vil klare mange af do mmdre avancerede 
oknvebehov i hjemmet. skoien eller hos den Iille erhvervs- 
dnvende 

C0Mputer".ait sker hurtigt pa skcermen Trebes formatterer med sam- 
nr.l me Der er mange redigoringsfaciiiteler, som fuldt ud er pa 
naoa med, hvad der ses i storre systemer Del er muiiqt at 
la ud5krevet trjksten pa flere lyper prrntGre. og mformall- 
onsvinduet gor manualen ovefflodtg elter kort tids torlob' 

Disk med TURBOLADER. PRIS Kr. 498,- 
Band med TURBOLADER. PRIS Kr. 448,- 

BesttMmgsopgaver udfores. Netvarksystern til CBM 64/SX 64/128 under 
udvikling Ogsa software 111 AMSTAD haves, ring for Info. 

FUTUREline, Tjarebyvej 9, 3400 Hillerod 
TIf. 02-11 04 28 
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af Flemming Lerbak 




COMMODORE lOEMPEfl 

Heller ikke Commodore slipper for 
de problemer. der i ojeblikket tyn- 
ger store dele af computer-fir- 
maerne. Store problemer med at fa 
128'eren ud til tiden, og staerkt be- 
grasnsede leveringer, da maskinen 
endelig dukkede op, har vasret 
medvirkende til at oge det finarv 
sielle tryk pa USA moderfirmaet. 
Udviklingsudgifterne til Amigaen 
har ogs-a en del af skylden for den 
forvserrede situation. For nylig Irak 
Commodore sig fra en rsekke salgs- 



fremmende arrangementer i flere 
Europseiske lande. Commodore har 
ingen kommentarer til sine disposi- 
tioner. men flere iagttagere mener, 
at de dystre tal for Commodores 
okonomi, taler for sig selv. 
128'erens endelose udskydelse og 
det faktum, at der i mellemtiden er 
kommet andre, og mere avance- 
rede maskiner ind pa markedet - 
isasr, hvis man sammenligner de an- 
dre med kombinationen 1541/128. 
For at dsemme op for kritikken, har 



Commodore besluttet. at sende en 
ny singetsided diskstation 1570 ud 
pa det Europaaiske marked. Sim- 
pelthen fordi man endnu ikke kan 
levere den mere professtonelle 
1571 diskstation, der jo er doublesi- 
ded. Salgsrapporterne for 128. nu 
da salget sa smat er ved at komme 
igang. lyder ellers pa. at 128 har 
samme store salgstal som 64'er'en 
havde del. 



128 SOFTWARE 

Precision Software der bl.a. stSr 
bag programmer, som Easyscript 
og Superbase kommer nu med lig- 
nende software til 128'eren. Der er 
bl.a. tale om en forbedret version af 
tekstbehandlingen, som kaldes Su- 
perscript, der far en 30.000 ords 
stavechecker - sa nu vil vi alle kunne 
skrive pS engelsk. Der kommer 
ogsa en udgave af superbase, og 
begge programmer skal kunne ar- 
bejde i bade 40 og 80 tegn, og de 
skal kunne bruges sarnmen. Fir- 
maet Timeworks har sendt tre soft- 
wareting p& markedet. De kaldes 
Swift Calc. Data Manager og Word 
Writer, de arbejder alle i den profes- 
sionelle 80-tegns mode. De benyt- 
Eer pulldown-menuer.scrol! og win- 
dows, sa resultatet er meget pro- 
fessionelt at se pa. Alle tre kan ar- 
bejde sammen, og de loader sig 
selv automatisk. bade pS 1541 og 
1570/71. 

Programmerne vil koste omkring 
70 $ stykket , og Timeworks adresse 
er: 

Timeworks 

444 Lake Cook Road 

Deerfield. IL 60015 USA 



DIGITAL »dims« 

CLR har nu ogsa slaet sig p5 peri- 
feri-udstyret. Firmaet er ellers kendt 
for sine softwares, men nu hedder 
nyeste skud pa stammen -Video Di- 
gitiser Module-, og kan bruges pa 
en 64'er. 

Modulet modtager hvert et vi- 
deosignal. og kan bearbejde det pa 
forskellig vis bagefter. Samtidig kan 
man gemme visse dele af et billede 
i en specialise 

Prisen er 150 pund, og forelobig 
ma man skrive til England: 




CRL.CRL Hse 

9 Kings Yard, Carpenters Road 
London E15 2HD. 



COMMODORE FAKTA 

Commodore International er maske 
i krise. m en i Dan mark har man haft 
et godt resultat. Efter en omsset- 
nmgsfremgang pa omkring en tre- 
diedel, naede Commodore i Hor- 
sens op pa 143.654.000 kroner i om- 
sastning. Overskudet blevpS 11% af 
omsaetningen. og det gav et over- 
skud pa 15.863.000 for skat. Egen- 
kapitalen er vokset til knap 21 milli- 
oner kroner. De penge f£r sikkert 
ben at ga pa. nar Commodore flytter 
sine teltpaele til Arhus. 



Af de enheder, som er solgt. 
naavner vor kilde, at 652 stk. PC10 
og 20'ere blev solgt alene i det sid- 
ste kvartal i Commodore regnskab- 
saret. der udlober den. 30.06.85 
Hjemmecomputere solgte man 
33.891 af, mens der af diskstationer 
blev solgt 8.363 stk., ligesom der 
gled 5,985 stk. printere over disken. 
Bandstationerne er dog stadig de 
talmaessigt overlegene, idet hele 
29.737 stk. blev solgt. 



EN CRACKERS DROM 

Turbonibbler er ikke bare et kopi- 
program hos crackerne, men e! be- 
greb. Det klarer dog ikke alt, det gor 
den nye version 2.1 heller ikke. men 
nsesten. Kun software fra Broder- 
bund og Datamost klarer sig fri af 
bit-jageriet pa disken. Men der er 
meget snart en version 3.0 pa vej. 
Forelobig kan man for 55DM fa 2.1 
versionen, som klarer kopier af op 
til 41 spor inklusive fejllaasning og 
tessning af den underliggende da- 
tainformation. killertracks, samt 



halv- og helsporsafvigelser. En fuld 
backup varer ca. fire minnutter. og 
programme! er menustyret. lovrigt 
kan man sende sin forste version - 
hvis det ikke er en piratversion ! - ind 
til det holiandske firma, som laver 
Turbonibbler, vedlsegge 20DM, og 
man far tilsendt den nye version. 
Programmet er lavet af det holiand- 
ske softwarehus Eurosystem, Ver- 
lengde Parkweg 6, 6717 gn Ede. 
Holland. 




fik, Printeren driver papiret frem 
med bade traktor og friktionsvalse, 
og der er mulighed for, at tage to 
kopier, samt originalen i samme ar- 
bejdsgang. 



AMIGA SOFTWARE 

Det gar ikke helt sa hurtigt med at 
fa Commodores Amiga suppleret 
med software, som Commodore og 
softwarefirmaerne havde regnet 
med. Arsagen skulle vaare. at den 
endelige version af Amiga'ens ope- 
rativsystem, det sakaldte Amiga 
DOS, har ladet vente pa sig. Men 
der er tilgengasld meget spaen- 
dende ling pa vej, f,eks. en version 
af Calcraft, der tilSader udnyttelsen 
af Amiga'ens multitasking, dvs. 
den kan sta og trykke spreadsheets 
ud. og samtidig bruges som f.eks. 
tekstbehandlingsanlaag. 

Textcraft er ogsa pa vej, og det 
vil fra fodslen have f.eks. udkast til 
forretningsbreve i sig. men selvfol- 
gelig ogsa muligheden for selv at 
udkaste sine standard-breve. 



FLYVENDE 1541 

ProLogic er navnet pa et nyt super- 
rnodul til C64 og 1541 kombinatio- 
nen. Det skal ifolge opgivelserne, 
betjene sig af parallel dataoverfor- 
sel, og det giver hastigheder, som 
er 25 gange hurtigere under LOAD, 
og 13 gange hurtigere under SAVE. 
Det indeholder desuden en lang 
raekke features, som valgfri 35 eller 
40 spor, komplet RS232 og Centro- 
nics udgang, expansions-porten 



funktionerer ogsa selv om modulet 
er i, lettere DOS. hurtigere formate- 
ring, mekaniske bevasgelser og 
stojsvag udlassntng af fejl og forma- 
tering. 298 DM skulle herligheden 
koste, og kan kobes hos udvik- 
lerne: 

Jann Datentechnik 

Glimmerweg 22 

1000 Berlin 47 

tlf. 3 30 73 11 84 



AMIGA MED GEM 

GEM - Graphics Environment Ma- 
nager - vinder storre og storre tnd- 
pas pa PC-markedet. Med Ataris 
520ST. kom GEM for forste gang i 
brug pa en hjemmecomputer - om 
end en af de mere avancerede. Digi- 
tal Research har udviklet dette bru- 
gersystem basse ret pa grafiske 
symboler og styret via mus. Dette 
firma vil gerne se. en GEM version 
pa Commodores kommende gul- 
dasg Amigaen og andre maskiner, 
som bruger den nye Motorola-chip 
68O00 som CPU'er. Firmaet er der- 
for gaet igang med at udvikle en 
specialversion - som den pa 520ST 
- til Amiga. 



ALTER N ATI V PRINTER 

Seikosa har sendt endnu en printer 
pa markedet, som ogsa indeholder 
det specielle Commodore modul til 
bade 128, 64 og VIC20. Det er mo- 
dellen SP1000 VC. Det er en grafisk 
matrix printer, der skal kunne skrive 
korrespondanceskrift I 10 forskel- 
lige skrifttyper. 

Alt efter kvalitetskravene, skrives 
med hastigheder pa mellem 20-100 
tegn pr. sekund.Bogstavmatrixen 
er fra 12x9 til 32x18 dot matrix, og 
det skulle sikre en rimelig kvalitet 
bade til tekst og med hensyn til gra- 



FOR TIDLIGT UDE 

De forste lykkelige ejere af en 
128'er i Vesttyskland, blev noget 
matte i sokkerne, da de konstate- 
rede, at farven pludselig forsvandt 
pa deres skasrm. 

Arsagen er en fejl i ca. 800 af 
chipsene, som kom fra boardfabri- 
kanterne i Hong Kong. - Denne fejl, 
er en af arsagerne til den forsin- 
kelse, der er i 128 leverancerne til 
Danmark, siger Donald Tanghus fra 
Commodore impotoren i Horsens. 
Fejlen er rettet, og leverancerne er 
kommet igang igen. siger Tanghus. 



NYE TIDER 

Hvor man for skulle vente pa sin 
printer, er det nu omvendt, hvis man 
vel at mserke har en af de nye - og 
temmelig dyre - laserprintere. Den 
problemstilling har IBIS Data, Fre- 
deriksberg, indset, og har fremstil- 
let et interface, der gor det muligt, 
at kore med to computere pa en 
printer. 

Interfacet sorger selv for at for- 
dele strommen af information til 
printeren. 



£RGELIGT 

Eureka betyder noget i retning af 
>'jeg har det«. Det var lige hvad den 
kun 15-arige Mattew Woodley. sko- 
leelevfra Storbritanien, kunne ribe. 
Han decifrerede nummeret for no- 
gen tid siden, men vidste ikke rigtig, 
hvad han sku^e stille op. nar han 
kom igennem til den automatiske 
telefonsvarer. Men han har nu faet 
sine 25.000 pund, og nummeret er 
nedlagt. Se iovrigt artiklen om Eu- 
reka, andet sted i bladet. 

fortssettes side 60 7 ► 



LOTUS PA PC 10/20 

Lotus 1-2-3 og Symphony vil om 
kort tid ogsa komme i en version for 
de fuld IBM kompatible PC 10 og 20 
modeller fra Commodore, Det er 
det Vesttyske firma Commodore 
Buromaschinen BmbH i Frankfurt, 
som i samarbejde med Lotus Deve- 
lopment GmbH i Munchen udvikler 
programmer. 





af Flemming Lerbask 
ELITE 

Somme tider er der meget store f or- 
skelle pa. hvad et spil kan byde pa, 
hvis man sammenligner de sprag- 
lede reklamer og det reelle indhold 
af disken eller bandet. ELITE er in- 
gen undtagelse fra reglen, men det 
er en af de fa undtagelser, hvor der 
ikke er lovet for meget. 

ELITE fra softwarefirmaet Fire- 
bird har med dette spil placeret sig 
megel langt fremme pa hitlisterne. 
Det er ikke uden grund. for ELITE er 
super underholdning. Det er adven- 
ture, hjernegymnastik, hukomrnel- 
sestester. action og snuhed forenet 
i et og samme spil. Det erselvfolge- 
lig meget flol grafisk, men netop pa 
det omrade synes jeg ikke. man 
skai lade sig narre. Det er ganske 
vist flot at se pa, nar de forskeiiige 
rumskibe vises roterende om sig 
selv, men teknikken er den samme, 
hvad enten man lader spillet gore 
det med eet skib eller tusinde for- 
skeilige. Kun storrelsen pa compu- 
teren er det afgorende. men flot er 
det. 



Handlingen 

ELITE er ikke bare et spil, det er en 
hell anden verden. Hundrede af 
lysar vask fra moder jord far man her 



mulighed for, at nedsastte sig som 
handelsmand. Men i en barsk ver- 
den ma man vaare ikke sa lidt af en 
kriger for at overleve i de otte galak- 
ser, spillet omfatter. 

Udstyret med folgende fa ejen- 
dele: 7 lysars brasndstof. 100 Cr 
(credits} og en solle front pulse la- 
ser, samt tre missiler. Heldigvis er 
rumskibet glimrende, og del kan 
udbygges kraftigt med afrskens Is- 
enkram indenfor den mest moderne 
v&ben- og computerteknotogi D^n 
status som pilot og verdensborger 
er "harmlos" og rent juridisk - set 
med rumpolitiets (gal-cop) ojne - er 
du uden en plel, kaldet »clean«. 

Nu er det sa meningen, at du skal 
drage ud i universe! og finde lykke 
og formue. (De to ting haanger ikke 
nodvendigvis sammen. Du skal op- 
soge andre planeter og deres rum- 
skibe. Soge at lande pa de venlig- 
sindede af dem - etler der , hvor du 
har chance for en okonomisk ge- 
vinst Du kan ogsa fange og destru- 
ere pirarter og f.eks. Thargoids. Det 
giver gode penge, men er ogsa ek- 
stremt farligt. 

Til en start skal du nok nojes med 
at forsoge dig som bandlende, og 
det vll forst og fremmest sige ga 




ombord i de drabanter, der kredser 
og den planet, hvor det hele starter. 



Uendelige mullgheder 

Der er uendelige muligheder i spil- 
let. Ikke bare for at lade det enkelte 
spil udvikle sig, men ogsa fordi der 
er omkring 280 kloder I hver af de 
otte galakser, spille omfatter. Ua- 
nede muligheder altsa\ Men der er 
ogsa et utal af sklbe (rumskibe) 
som du bor kende. Inden du opta- 
ger kontakt med dem. Nogen er alt 
andet end venligsindede. nogen er 
sa store, og har sa mange folge- og 
forsvarsskibe med, at du nseppe vil 
undslippe dine utovligheder eller 
krigeriske tilbojeligheder. Andre 
igen er fulstasndig forsvarslose og 
sa husk, at du ganske vist bliver 
bedre til at flyve. og derfor skifter 
kampstatus fra Hanmlos i starten til 
Elite. Du kan i mellemtiden have vas- 
ret poor, average, above average, 
competent, dangeroos. deadly, og 
til sidst ELITE. Nar du stiger i gra- 
derne, vokser ogsa gal-cops inter- 
esse for dig. Med garanti far du 
diss© herre - som kun kender straf 
for en lovovertrsedelse. doden - pa 
halsen hvis du begynder at skaffe 
dig hurtig kapital ved f.eks. at 
handle ulovligt med nakotika, guld 
eller andre ting, eller hvis du lige- 
frem - og rnaske ved et uheld - an- 
griber et af gai-corps sma hurtige 
rumskibe. 



En oplevelse 

Som du sikket kan forsta, er ELITE 
noget helt specielt. Med dets flotte 
grafik. dets uanede muligheder og 
dets fantastiske lyd - aegte Strauss 
- bliver man sat ind i sin helt egen 
verden. Spillet kan tortssertes t are- 
vis. Der er ikke bare mulighed for at 
stoppe spillet og genstarte det til 
enhver tid (godt med en tsenke- 
pause. selv om det egentlig er 
snyd), men spillet kan ogsastoppes 



og genoptages fra den nuvserende 
position. Det sker ved at man enten 
pa. band eller disk opbevarer spille- 
situalionen. 

For at kunne betjene de mange 
muligheder, har Firebird-folkene 
gjort . hvad de kunne, for al gore 
oplevelsen perfekt. Der er en plakat 
med, som beskriver rumskibenes 
udseende, sa du hurtigt kan gen- 
kende dem. Der er en 64 sider de- 
taljeret og velskrevet handbog med, 
en opslagsbog »summary« af tasta- 
turbelaagningen, og et overlay til ta- 
staturet, sa nogen af de vigtigste 
tastbelaegninger hele tiden star ma- 
let for ens ojne. 

Skulle det ikke vaare nok. har 
softwarefirmaet gjort spaandingen 
yderligere hoj. ved ogsa at ind- 




lasgge ©n title roman i saettet. Det er 
Robert Holdstock's bog. -The Dark 
Wheel", hvori man kan snuse til det 
som sker i verden pa netop den rid, 
hvor man bliver sluppet los. Den gi- 
ver indtryk af samfundsforhold, ga- 
laktiske krige og meget mere. Su- 
per sience fiction. Herlig spaen- 
dende laesning i sig selv. 



Det mener /ep.€gentlig er det 
overflodigt at sige det, men allige- 
vel: Sset ELITE overst pa onskesed- 
len juleaften, men hvem kan venle 
sa Isenge. 



Titel: ELITE 
Computer: CB4, BBC 
Medium/pris: band 198 - dislK 278,- 
Betjening; Tastatur og/eller Joystick 
Fabrikat/irnpotor: Firebird/Twilight 

Min mening (1 - 13) ; 

Computer brug: 11 
Manual: 13 
Betjening: 11 
Vedvarende appel: 13 
Helhed: 11 



KARATKA 

Der er altid noget ekstra godt i 
vente, nar man far tag i et spil. hvor 
del er een selv, der kan styre udvik- 
lingen. Ikke bare noget med point, 
som ruller ind pa lystavlen i storre 
eller mindre maengder, KATATKA er 
et sadant spil. Her er det en karate 
ekspert, man styrer gennem et 
hsendelsesforlob. Med den fremra- 
gende lille optakt spillet prassterer, 
mens det loader op, og alle bits fal- 
der pa plads i 64'eren, ma det vaare 
noget saarligt. Det er KARATKA 
sandelig ogsa. 

Facts; Den onde kejser og krigs- 
mager Akuma har plyndret og haar- 
gel omradet Han har taget den 
smukke prinsesse Mariko til fange, 
og nu skal hun befries. Hojt oppe pa 
bjergplateauet er palladset, og der 
er mange gode vogtere, som alle er 
eksperter i karate. Det er sa bare 
om at fa nasverne i kampstilling og 
sparke ud. Alle karatens knep og 
tricks kommer i brug, og karateeks- 
perter bedommer spillet som endog 
meget realistisk. hvad angar kam- 
pens forlob. Fint at man ogsa kan na 
fa slukket torstenen ind imellern 
med pausemuligheden. Men det er 
ikke sa lidt trsels, at der skal reloa- 
des efter hvert dodsfald af hovedfi- 
guren. 

Kon og godt: Blaandende god 
gratik og rimelige lyde. en sjov ind- 
ledning og de meget realistiske be- 
vasgelser pa kampfigurene gor KA- 
RATKA til noget specielt. Mine var- 
meste anbefalinger. Det er let at fa 
starlet men svsert at na malet, a! 



befri drommepigen. Men forsog alii- 
gevel. Det er det vaard. selv om man 
skal vente pa reloading. 

Titel: KARATKA 
Computer: C64 

Medium/pris: band 198,- disk259,- 
Betjening: Tastatur/ Joy stick 
Fabrikat/irnpotor: Ariolasoft/Twi light 



Frank Bruno's Boxing 

Selv ikke minestorsteforventninger 
til dette boksespil blev skuffet. da 
dei efter ca. fern minutter var ind- 
lasst fra bandet. Fremragende lyd 
og billede. selv under den lidt ked- 
sommelige ventetid. FRANK BRU- 
NO'S BOXING er noget heit specielt 
og kunne meget nemt vasre blevet 
manedens spil. 

Facts: Du er en del af det ver- 
densomspaandende boksecirkus, 
som hersker omkring verdensme- 
sterskabet i boksning. Jeg vil naer- 
mest kalde det »frrboksning«« pa 
grund af maden. som flere af mod- 
standerne opforer sig p£ I ringen. 

Du skal i lobet af tre minutters 
boksning bevise. at du kan sla din 
modstander knock out. og det kan 
kun ske under visse omstaendighe- 
der. 

Syv modstandere venter pa ta- 
pens bagside, sa det er ikke nok at 
fa gjort kal pa Canadian Crusher. 
Med joystick og tastatur eller to jo- 
ysticks, kan du kontrollere Bruno pa" 
en meget realistisk mSde. Det gael- 
der om at holde paraderne oppe. 



Min mening (1 - 13) 

Computerbrug: 10 
Manual: 8 
Betjening: 9 
Vedvarende appel: 10 
Helhed: 9 




dukke, vige eller have dynarrjit i 
handskerne. 

Kort og godt: Det bedste sports- 
spil, jeg har provet. Flot lyd og laakre 
detaljer i massevis. Grafikken er 
fremragende, og hvis du tkke slas 
ud af din modstander, kan det nemt 
ske, at du hulkeraf grin. 

Titel FRANK BRUNO'S BOXING 
Computer: C64. Amstrad, Spectrum 
Medium/pris: band 169,- 
Betjening: Tastatur og Joystick 
Fabrlkat/importor: Elite/Twilight 

Min mening (1 - 13): 

Computerbrug: 13 
Manual: 10 
Betjening: 11 
Vedvarende appel: 11 
Helheden; 11 
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Lyd chip 9 en i 




af Bjarne V. Jensen 



I sidste nr. af RUN bragte vi en 
artikel om lydchip'en i en Commo- 
dore 64. Der blev bl.a. omtalt, hvor- 
dan overtoner bestemmer en to- 
nes klang, og hvordan man kunne 
frembringe nye overtoner ved a! 
benytte f.eks. synkronlsering eller 
ringmodulation. 

I denne artikel vil vi bl.a. se pa, 
hvordan man fjerner nogle af disse 
overtoner. og pa den made skaber 
nye klange eller lyde. Dette gores 
ved hjaalp af et filter, som lydchip'en 
er forsynet med. Egentlig er der tale 
om tre forskelligefiltre: Et lavpas-fil- 
ter, et hojpas-filter og et bandpas- 
filter. 

Inden disse filtre benyttes, ma 
man vaalge en filter-frekvens (cut- 
off frekvens). Det gores i adresse 
54293 og 54294. Det foregar pa 
samme made som nar man indstiller 
frekvensen pa en tone, dog med 
den forskel. at adressen 54293 kun 
kan eendres fra 0 til 7. 




frekvens 



Dette filter lader de frekvenser, der 
er lavere end filter-frekvensen, pas- 
sere uhindret, mens frekvenser, der 
er hojere end filter-frekvensen. 
deempes. 



Hojpas-filteret: 



styrke 



filter-frekvens 



frekvens 



Dette filter lader de frekvenser, der 
er hojere end filter-frekvensen. pas- 
sere uhindret, mens frekvenser, der 
er lavere end filter-frekvensen. 
dasmpes. 



Bandpas-Iilteret: 

styrke 




filter-frekvens 
I 



Dette filter lader de frekvenser, der 
ligger ta*t ved filter-frekvensen, 
passere uhindret, mens frekvenser, 
der er langt fra filter-frekvensen. 
d33mpes, 



Bandstop-filteret: 

styrke 



filter-frekvens 



frekvens 



frekvens 

Ved at kombinere lavpas-filteret og 
hojpas-filteret, far man et band- 
stop-filter (eller noch-filter). Dette 
filter daemper de frekvenser. der lig- 
ger ta3t ved filter-frekvensen, mens 
de frekvenser, der er langt fra filter- 
frekvensen. passerer uhindret. 

De fire laveste bit i adresse 54295 
bestemmer. hvilke signaler der skal 
ledes igennem filteret, og hvilke der 
skal ledes udenom. Hvis bit nr.Q 
sasttes til et ettal. vil signalet fra ge- 
nerator nr.1 blive fart gennem filte- 
ret. Indsaatter man et nul, vil signalet 
blive fort uden om filteret. Bit nr.1 
og bit nr.2 bestemmer om signalet 
fra generator nr.2 og nr.3 skal ledes 
gennem filteret. Bit nr.3 bestemmer 
om signalet fra computerens ex- 
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terne lydindgang. skal gennem filte- 
ret. 

De fire hojeste bit i adresse 
54295 siyrer filterets resonans. Hvis 
man betragter de fire bit som et de- 
cimaltal. kan dette tal antage veer- 
dier fra 0 til 15 (0=ingen resonans 
15 = maximum resonans). Hvis man 
vaelger en resonansvserdi, der er 
storre end 0. sa vil de frekvenser, 
der ligger tae! ved filter-frekvensen, 
foroges i forhold til resten af omra- 
del r og derved forsage en noget 
»skarpere« lyd. Hvis man vil indstille 
en resonansvserdi uden at pavirke 
de fire forste bit i adresse 54295, 
kan det f.eks. gores med denne 
kommando: 



POKE54295.(PEE- 
K(54295)AND15)+16*N 



hvor tallet N er resonansvaardien 0 

• 15. 

Bit nr.4, 5 og 6 i adresse 54296 
bestemmer, hvilken filtertype der 
skal anvendes. Saetter man bit nr.4 
til et ettal, far man et lavpas-filter. 



Sasttes bit nr.5 til et ettal, far man et 
bandpas-filter, oq saetter man bit 
nr.6 til et ettal, har man et hojpas- 
fiiter. Hvis bade bit nr.4 og bit nr.6 
saettes til et ettal. bliver det til et 
bandstop-filter. Filtrene har mange 
anvendelsesmuligheder. Hvis man 
f.eks. sender stoj gennem ban- 
dpas-filteret, og samtidig aendrer fil- 
terfrekvensen langsomt op og ned, 
vil det lyde som blaesevejr. Sender 
man stoj gennem lavpas-filteret, og 
saetter filter-frekvensen til en pas- 
sende lav vaerdi, kan man fa det til 
at lyde som torden eller kanoner. 
Hvis man sender toner gennem 
bandpas-filteret, og aendrer pa fil- 
terfrekvensen. mens tonen gengi- 
ves. far man samme effekt som en 
wah-wah pedal. Den bedste virkning 
opn&s, hvis man saetter resonans 
pa filteret. 

Bit nr.7 i adresse 54296 er bereg- 
net til at slukke for lyden fra lydge- 
nerator nr.3. (hvorfor nu det?). Jo, 
generator nr.3 kan nemlig bruges til 
noget ganske sserligt. Den har en 
digital-udgang, som kan afleeses fra 
adresse 54299. Hvis man vaelger en 
langsom savtak-tone. vil man fra 



adresse 54299 kunne hente en 
raekke tal. der foroges fra 0 til 255. 
Vaelger man trekant-tonen. vil tallet 
stige fra 0 til 255, og derefter falde 
fra 255 til 0. Vaelger man firkant (pul- 
ser), vil tallet skifte mellem 0 og 255, 
og veelger man stoj. kan man hente 
tilfaeldige tal. Fra BASIC hentes tal- 
let f.eks. ved at skrive: 



PRINTPEEK(54299) 



Adresse 54300 er ogsa en digita- 
ludgang. Fra denne adresse kan 
man hente tal der svarer til lydstyr- 
keforlobet fra generator nr.3 (at- 
tack/decay/sustai n/ release ) . 

Begge disse udgange kan bruges til 
mange ting. Man kan f.eks. lave en 
programs! off e, der henter et af 
disse tal. og benytter det til at be- 
stemme frekvensen pa en af de an- 
dre lydgeneratorer. Eller man kunne 
maske fa en sprite-figur til at be- 
vaege sig i takt med generator nr.3. 
Man kan ogsa. bruge et af tallene til 
at styre filter-frekvensen med. Mu- 
lighederne er utallige. prov selv. 



Filtrene styres fra adresse 54295 og 
adresse 54296: 




128 64 


32 


16 


8 


4 


2 


1 


t.'lt-r ■ 


resonans 


EXT 


V.3 


V.2 


V 1 


-V3 | HP 


| BP 


LP 


m 


aster - 


volun 


le 


' 6 


S 


4 


3 


2 


1 


0 



bit - vaerdi 
adr 54295 
adr. 54296 
bit - nr 



1 i 



C cmal Si del 3 




af Henning Randmose 

Ogsa denne gang bruges LOOP og 
IF strukturen i det program, jeg 
bruger som udgangspunkt for gen- 
nemgangen at nogle af Comsls 
muligheder, men som du vil se, 
bruges de i en lidt anden udform- 
ning. 

Sidst brugte vi lokken LOOP 
sammen med den betingede ud- 
gang EXIT WHEN (betingelse sand), 
men der behover ikke at vaare en 
udgang i en LOOP struktur, det er 
der ikke her.sa her vil programmet 
kore i ring, indtil du trykker pa stop- 
tasten. 

Sidst brugte vi IF (betingelse op- 
fyldt) THEN i enkeltlinjeform, 
og den flergrenede form 




Denne gang bruger vi IF ssetnin- 
gen i en lidt anden form. I linje 540 
til 560 bruger vi den i en tilsynela- 
denden flergrenet form, det er dog 
ogsa kun tilsyneladende. en flergre- 
net form har nernlig altid et alterna- 
te, og det bar denne ikke, her skal 
betingelserne i linje 540 alle vsere 
opfyldte (vsere sande). ellers udfo- 
res ordrerne der star efter THEN 
ikke. Det er altsa en simpel IF sast- 
ning (enkeltgrenet). eller som jeg 
foretraakker - en enkeltlinjesaatning, 
som vi hvis der var plads nok, ville 
skrive pa en linje. Nu er der ikke 
plads til at funktionen bell (x) kan 
sta pa samme Finje som THEN, og 
nar der i en IF ssetning bruges mere 
end en linje, sa skal den afsluttes 



med ENDIF, hvilket jo ellers ikke er 
nodvendlgt. 




I linje 330 til 350 og i linjerne 440- 
450 introduceres en ny form for 
lokke, REPEAT... .UNTIL (betingelse 
opfyldt), oversat GENTAG... INDTIL 
betingelse er opfyldt, som en en- 
keltlinje-lokke. Nogle vil sikkert un- 
dre sig over, at jeg har brugt en 
lokke der. Det kan synes unodigt, 
INPUT ssetningen venter jo ogsa pa 
en indtastnlng. Det er nu ikke uden 
grund. jeg har valgt at bruge en 
lokke. Hvis du ser pa betingelsen 
efter UNTIL, vil du se„ at jeg bruger 
lokkestrukturen til at kontrollere, 
om indtastningen er inden for et gi- 
vent omrade. Hvis der her havde 
vaaret brugt INPUT saatninger. ville 
den nodvendige kontrolstruktur 
blive klodset, da den for at forhin- 
dre, at du kommer ned i nasste IN- 
PUT linje, skulle aktiveres efter hver 
enkelt indtastning, i stedet for som 
her. hvor kontrollen sker i selve IN- 
PUT Itnjen, fordi den er lagt ind i en 
lokke. 

I linjerne 500 til 570 ser du samme 
lokke brugt som flerlinjet lokke. Der 
er i princippet ingen forskel pa 
disse to mader at bruge REPEA- 
T.. UNTIL pa, blot far du her genta- 
get ftere ting. Indholdet af uret re- 
turneres heie tiden til skaarmen, du 
fair hele tiden udskrevet en tekst 
(husk altid at angive linje og posi- 
tion nar du udskriver I en lokke. da 
du ellers far det udskrevet pa ny 
linje hver gang, og hele dit skserm- 
billede vil lobe). I linje 540 far du 
konstant kontrolleret om det ind- 
byggede ur har samme vasrdi, som 
de vaerdier du har lagt ind i variab- 




lerne mi og ti, variablen se (sekund) 
har vaardien nul. den vaerdi er lagt 
ind i linje 60, hvor vsekker nulstilles. 
Du kan selv prove at regne ud. hvor- 
nar -vaskkeren- vil lyde, hvis proce- 
duren ur er aktiv, og du ikke har 
indtastet nogle vaardier. 

Sammenfattende, REPEAT.. UN- 
TIL lokken har altid en udgang. 
modsat LOOP - hvor det er valgfrit. 
og hvor udgangen EXIT kan place- 
res overalt i lokken. En REPEAT 
..UNTIL lokke gennernlobes altid 
mindst en gang, da udgangsbetin- 
gelsen star til sidst i lokken. 

Jeg undgik sidst at oversaette 
CASE saatningen, og jeg ma tilsta, 
at jeg stadig ikke er stolt af, at skulle 
prove, men skal dog gore et forsog. 
Den CASE struktur jeg bruger i lin- 
jerne 180 til 280, vil oversat til dansk 
vsere : 



Opgaven i variablen valgS er 
vaardien er 1 
stil uret 

nar vaardien er 2 
indstil vaskker 
nar vserdien er 3 
vis uret 

hvis vaardien ikke er 1. 2 eller 3. sa 
er vaardien falsk, og sa skal efterfol- 
gende gores: 
skriv at vaardien er falsk 
hold en pause, mens beskeden las- 
ses 

ga tilbage og vent pa en aegte vaardi 
slut opgaven 



CASE strukturen vlrker som en 
automatstyret rundkorsel, hvorfra 
der forer et bestemt antal udfalds- 
veje. Variablen valg$ er dig, og den 
vasrdi du har lagt i den, er din be- 
stemmelse om hvor du vil hen. Hvis 
WHEN (nar) dit valg er Korsor. og 
der findes en udtaldsvej til Korsor. 
sorges der for, at du kommer dertil. 
Der er ingen veje. der forer til t eks. 
Slagelse. sa hvis du havde valgt det. 
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ville OTHERWISE ikke have titladl 
dig at forlade rundkorslen, for a! 
komme va*k. sa ville du vaBre nodt 
til at vselge en af de udfaldsveje. der 
udgik fra rundkorslen. 

Lad os nu prove at gennemga 
programmed forst i store trsek, og 
derefter ga til de enkelte linjer. Forst 
gores 64'eren bekendt med, al ind- 
holdet af strengvariablen rammeS 
er en samling af grafiske symboler 
(CBM-tasten + i), derna=?st nulstil- 
les de variabler vi skal bruge til vor 
vaakker, sa forteeller vi computeren, 
at den skal aktivere system-pakken. 
Sa folger hovedprogrammet, der 
bestar af en menu, samt mulighed 
for, at komme HI at bruge nogle del- 
programmer, der er lagt ud som 
procedures Den forste stil'ur, bru- 
ges som navnet antyder til at stille 
computerens interne ur, hvis vi ikke 
stiller uret til en valgt tid, vil uret 
indeholde den tid, der svarer til ti- 
den, der er gaet. stden du tsendte 
for computeren. Proceduren vaak- 
ker bruges til at lasgge nogle vagr- 
dierind i de variabler, som procedu- 
ren ur bruger til sammenligning 
med computerens indbyggede ur, 
samt at der, nar variablerne har 
samme vasrdi, sker en aktivering af 
Comal's klokke. Her er ogsa lagt en 
pause ind, sa du besternmer. nar du 
vil tilbage i hovedprogrammet. I de 
andre procedurer returnerer du 
umiddelbart efter, at du har udfort 
dine transaktioner. 

Det var den overordnede pro- 
gramstruktur, lad os nu gennemga 
de linjer, der indeholder noget nyt. 
Vi komrner til at springe lidt frem og 
tilbage i programmed Men det er 
mere forstaeligt, hvis vi behandler 
de ensartede ting samlet. 

Nogle har sikkert bemaarkel, at 
der i linje 70 star USE system (brug 
system). I tillasg til Comal- kernen, 
er der i kapslen lagt nogle maskin- 
kodeprogrammer. hvorat den ene 
pakke hedder system (sidst brugte 
vi USE dansk). Systempakken skal 
vi have aktiveret. da den indeholder 
funktionen inkeyS. gertimeS og belt 
samt proceduren settime. Den in- 
deholder meget mere, men vi klarer 
os med disse denne gang. 

Om procedure (PROC) ogfunkti- 
oner (FUNC) kan vi kort sige; en 
funktion returnere en vaerdi. en pro- 
cedure udforer et stykke arbejde- 
Der er betydelig mere at sige om 
forskellene, men vi tager det lidt ef- 
ter lidt. 



Funktionen inkeyS (linje 170) 
standser programforlobet indtil du 
rorer en tast. Nar du har rort en tast, 
returneres vserdien af tasten til det 
du har valgt. her til variablen valgS, 
hvis du prover at skrive PRINT in- 
keyS returneres til skserm. Jamen,- 
siger du rnaske, det gor INPUT saet- 
ningen ogsa. Det er rigtigt. det sker 
bare ikke pa samme made. Nar du 
bruger INPUT ssetningen, skal du 
taste RETURN, for at fa den udfort, 
det skal du ikke her, sa nar man kan 
nojes med et enkelt tegn, er inkeyS 
meget hurtigere at bruge. 




Proceduren settime i linje 380 
udforer arbejdet med at Izegge de 
vserdier du har lagt i variablerne tim. 
min, sek ind i computerens indbyg- 
gede ur, - den stiller uret 

Funktionen gettimeS returnerer 
computerens indbyggede ur, og 
hvis du har stillet det, returneres et 
trdstro klokkeslet. den returnerer 
klokkeslettet med 1/10 sek. nojag- 
tighed. 

Den sidste pakkefunktion der er 
brugt, er bell (x) (linje 550), den re- 
turnerer pakkens indbyggede 
klokke. Det er den du horer. n5r du 



tasnder tor computeren, Isengden af 
klokketonen bestemmes af storrel- 
sen x. jeg har valgt 30, prov at aan- 
dre vserdien til f.eks. 100. 

Der er ogsa brugt fire standard 
Comal funktioner i programme!, i 
linje 380 bruges funktionen STRS til 
at sendre den numeriske vaerdi i tim, 
min og sek til en streng (altsa til 
variabler der ender pa $), eendrin- 
gen er nodvendig for. at de kan las- 
ses af strengfunktionen gettimeS. 

I linje 490 bruger jeg funktionen 
SPCS (x), den returnerer x antal 
blanktegn. PAGE sastningen bruger 
du. nar du vil have visket hele skaer- 
men ren, men hvis du nu kun onsker 
at viske linje 10 ren, sa skriv PRINT 
AT 10,1 :SPC$ (40). Den funktion er 
et meget nyttrgt viskelaeder. 

Funktionen VAL i linje 540 gor det 
modsatte af STRS, VAL aendrer en 
streng til numerisk vaerdi. 

I linje 370 bruges funktionen 
KEYS pa samme made som sidst, 
men prov at se pa linje 570, der ser 
du en anden variant. Her bruges 
KEYS til at styre udgangsbetingel- 
sen fra REPEAT .. UNTIL 

Som det sidste for denne gang, 
sa se pa linje 270, her ser du en 
anden form for pause. FOR saatnin- 
gen og dens lokkestruktur komrner 
vi til en anden gang, denne gang 
skal du blot vide, at det der sker, er 
at ligesa lang tid computeren er om 
at taelle fra 1 til 2000 sa sker der 
intet. NULL er en ssetning der intet 
udforer. Her er alts4 tale om en 
pause, hvor man pa forhand har be- 
stemt. hvor laenge den skal vare, i 
modssetning til KEYS pauserne, 
hvis lasngden er bestemt af , hvornar 
du trykker pa en tast. ■ 
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Derervel nok en del computer- 
fans, son ikke synes, de har over- 
skud til at ssette sig ind i maskin- 
programmeringens mysterier. Del 
er forstaeligt nok, og nar man med 
mellemrum kober en ny computer, 
er del vel endnu mere forstaeligt. 



Men sadan behover det ikke at 
vasre, og i denne tille artikelserie, 
skal vi pa bedste made prove at op- 
muntre ejerne af 128'erne til at gore 
brug af nogle af de muligheder, som 
ofte henslumrer lige under overfla- 
den. 

Sagen er nemlig den, at man ikke 
behover at sastte sig ind i assem- 
blersproget tor at kunne bruge ma- 
skinsproget. Vil man nojes med 
mindre endnu, men alligevel gore 
sine programmer mere spaen- 
dende. brugervenlige og Ikke 
mindst professionelle i snittet. kan 
man gribe til nogle relativt fa adres- 
ser. Her er det bl.a. den sakaldte 
"Zeropage-, som i 128'erens til- 
taalde er ikke sa lldt udvidet, man 
kan hente hjaalp fra. 

Forseldet 

Zeropage er egentlig et staarkt for- 



seldet udtryk. Det stammer fra en 
tid. hvor man i de forste 256 (0-255) 
adresser anbragte forskellige op- 
lysninger - de sakaldte systemva- 
riabler - som man gang pa gang 
havde brug for at komme i kontakt 
med. Den lave adressering i eompu- 
terens hukommelse giver hurtig ad- 
gang til informattonerne, og man 
kan ogsa spare plads i rutinerne. 
idet opkaldet til zeropage klares 
med en enkelt byte. 

Nar jeg nu pastar, at zeropage er 
foraeldet. haanger det sammen med. 
at man forlsengst er blevet tvunget 
til at ga ud over disse forste 256 
adresser i computeren for at rumme 
de oplysninger. computeren bruger 
igen og igen. I 128'eren har man i 
forhold til f.eks. 64'eren gaet langt 
videre, men mere herom senere. 

De forste bits 

Vi vil ikke bare komme med en 
reekke oplysninger omkring de en- 
kelte adresser i zeropage og i den 
udvidede zeropage, men ogsa for- 
soge at sa?tte dem ind i sma og 
enkle programeksempler. sk det 
virkelig bliver klart, at man med me- 
get sma anstrengelser kan forbedre 
sine programmer med nogle fa PE- 
EK'S og POKE'S. 



For at sla fast, hvad PEEK og 
POKE gor, skal du lige repetere fra 
den engelske manual - som pa ab- 
solut uanstsendig vis - er eneste re- 
ference, vi pa nuv»rende tidspunkt 
kan komme med. Manualen naavner 
POKE pa enkelte steder bl.a. 17-54, 
18-10 og 4-18, sa det vil jeg ikke 
komme yderligere ind pa her 

Det er meningen at ga ind pa sa 
godt som alle adresser og forklare. 
hvad de kan gore, og hvad vi kan 
gore med dem. I dette nummer vil 
vi starte med et eksempel pa prak- 
tisk anvendelse af f lere af disse ad- 
resser. Programmet er et kvikfind- 
prograrn til bandstationen. 

Programmet kan modificeres ef- 
ter behov, ved at aandre p& enkelte 
parametre i form af variabler, og har 
derfor interesse for alle 128-ejere. 
Kassettedelen er nemlig ikke dod. 
selv om man har faet en ny compu- 
ter, og med en ordentlig lurbo er 
kassetten et ganske godt hjaelpe- 
middel. 

Programmet giver mullghed for 
at lasgge programmer ud pa et 
band, for sa let at genfinde dem ved 
hurtigspoling bade (rem og tilbage. 
Desuden er der et par and re fines- 
ser, som vi skal komme ind pa un- 
der gennemgangen af programmet. 
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I bunden 

Et helt naturligt sted at starte, er vet 
med de forste par adresser, men vi 
kommer videre omkring bl.a. til ta- 
staturbuffren, som er anbragl et nyt 
sted i forhold til f.eks. 64'eren. 
Og nu til selve programme!: 

Indtii linje 120 er program met 
ganske almindelig Basic med en en- 
kelt af de nye kommandoer "ELSE-. 
Her indlaases de syv navne, men 
programmet kan for den sags skyld 
baare f.eks. 20 navne, sa skal N blot 
vaare 20, og i datalinjerne skal der 
vasre mindst 19 kommaer - eller na- 
turligvis programnavne. 

I linje 120 stoder vi pa den forste 
interessante - i denne forbindelse - 
detalje. Adresserne 0 og 1 erforbe- 
holdt 8500'erens retningsregistre- 
ring, hvilket vil sige, at det her afma- 
skes. hvordan informationerne skal 
flyde til og fra computeren - ikke 
mindst gennem kassetteporten. 
Maske har du lagt maerke til, at 
bandstationens motor standser af 
sig selv under visse forhold. f.eks. 
efter en EOF-markering, altsa -end 
of file*. 

Programmet »Kvikfind« udnytter 
dette forhold. Motoren bringes via 
software til standsning, nar den har 
snurret i en nasrmere bestemt tid. 



Zero 192 

Men forst lige et par ord om adres- 
sen 192. Bade 64'eren og 128'eren 
har pa dette sted sit flag for kasset- 
temotorens drift. Dette forhold har 
jeg tidligere udnyttet i et tilsvarende 
program til 64'eren, da den i sin tid 
kom frem. Da 64'eren kom frem, var 
dokumentationen endnu mere elen- 
dig, end den er til 128'ren. Jeg fandt 
frem til nogle systemadresser i RO- 
M'en, og programmet virkede. men 
ikke mere. Senere har andre fundet 
ud af endnu bedre programmer, 
men det vi her har fAet prsesenteret, 
er endnu mere snedigt. 

Pa adressen 192 i zeropage kan 
man saarte eller leegge et flag. Hvad 
er nu del. den gaining snakker om. 
Skal man markere fodselsdage? 
Nej, men noget lignende. For dette 
at -sastte et flag« betyder, at man 
overfor computeren meddeler, at 
man onsker, den skal foretage en 
anden programafvikling, end hvis 
flaget - markeringen - ikke var sat. 
I gamle dage brugte man et flag til 
at signalere, sa mon ikke udtrykket 



stammer derfra. Flaget virker altsa" 
som et sporskifte med to mulighe- 
der. Flaget pa adressen markerer 
overfor CPU'en, at man onsker at 
starte eller stoppe bandstationens 
motor. 



POKE 192,1 :POKE.PEEK(t)OR32 



Prov at tast det ind. start band- 
motoren med tryk pa en af tasterne 
(husk at saatte band i) og tryk sa 
RETURN (ENTER). Motoren stop- 
per ojeblikkelig, men hvordan? 

Jo, svaret ligger i adresse 1 i pro- 
cessoren. I bit 3,4, og 5 gemmer 
mulighederne sig for, at rnanipulere 
med motor og andet. 

Bit 3: Cass WRT altsa skriv data til 
b andet. 

Bit 4: Cass SENS altsa undersog, 
hvad signaler bandstationen giver. 
Bit 5: Cass MOTOR altsi styring af 
selve motoren. 

Vil man saledes starte motoren 
igen, skaf man taste: 



POKE1,PEEK(1)AND39:POKE192.0 



Med adressen og saatningen/ 
lasgningen af bit 5, styres altsa mo- 
toren. Hvordan man netop saetter 
og la&gger den enkelte bits, kan du 
se i artiklen om maskinkodekursus 
i dette nummer af RUN. 

VI udnytter forholdet, og gennem 
en simpel tidsligning i linje 160 sty- 
res den tid, motoren skal vasre 
taendt. Variablen TM kan du give det 
indhold, du onsker. Jo storre va- 
riablen er, des laangere er motoren 
igang. En veerdi pa 10, som den er 
angivet her. er kun til afprovnings- 
formal. Den skal nok snarere vaare 
mellem 600-1000 til egne smapro- 
grammer. Dec ma du eksperimen- 
tere med. 

WAIT 

Denne kommando er brugt et par 
gange. Som du kan se - hvis du vil 
vide noget om dens virkemade, pa" 
siderne 17-84 i manualen. 

WAIT 1.16 afventer stoptastens 
funktion p£ bandstationen. 

Hvad den anden WAIT-kom- 
mando st&r for, er forklaret i manu- 
alen. 



Ser vi pa linje 200 og 230, finder 
vi ud af, at der med disse linjer ge- 
nereres en SAVE henholdsvis 
LOAD kommando, $h disse to fore- 
teelser kan sasttes naBsten automa- 
tisk igang. Det eneste, du skal gore, 
er at trykke en af de anbefalede ta- 
ster pi bandstationen. 

Pas pa, at du ikke taster forkert. 
Du kan komme til at f£ et par ubeha- 
gelige oplevelser. For bit 4 kan nok 
opdage, en taste er sat i funktion, 
men ikke hvilken tast det drejer sig 
om. Enhver kan jo trykke PLAY og 
REC samtidig og pa den made 
slette et program, selv om compu- 
teren tydeligt skrev -Press play- 
Zero 208 

I linje 240 kommer de naaste inter- 
essante kommandoer. Det er ad- 
resserne 208 og 842. Disse to ad- 
resser vil du med garati komme til 
at holde af. De er gode hjaalpere, 
nar man vil programmere med en 
vis behsendighed. 

Pa adresse 208 finder vi antallet 
af tegn, som skal bruges fra tasta- 
turbufferen. I dette tilfselde kun en 
enkelt. nemlig 13, der er RETURN, 
og svarer til tegnets ASCII-kode (Se 
manualen side E-1). Adressen 208 
hed i 64'eren 198. Sa ved du det, nar 
du skal konvertere dine program- 
mer. 

Tastaturbufferen ligger fra 842- 
851 (631-640 i 64'eren). Den er altsa 
pfi maksimalt 10 tegn. Og dog, an- 
tallet af tegn i bufferen kan regule- 
res pa adressen 2592 (649). Her 
star normalt 10, men er man villig til 
at afsta TAB-funktionen (man kan jo 
gemme vaardierne med en PEEK/ 
POKE kommando et andet sted og 
lasse herligheden tilbage senere), 
kan man saette antallet af tegn op til 
20. Men husk, at man oqsh her kan 
bruge forkortelserne af komrrtan- 
doerne, sa pladsen er ofte tilstrask- 
kelig. 

Endelig skal man va»re opmserk- 
som pa en ting mere ved 128'eren. 
1 64'eren mistede man sine variabel- 
vasrdier, nar man pa* denne made 
gav sig til at indfoje en programlinje 
under et programforlob. Det gor 
man ikke i 1 28'eren, idet variablerne 
gemmes i en anden bank (Bank 1). 
men herom ved en anden lejlighed 
God fornojelse med det tille pro- 
gram og pa gensyn i december- 
nummeret. 

Ustning side 25 
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SUPER SAGER 

Nar en ny computer kommer pa 
markedet. melder der sig megel 
hurtigt et behov for yderligere infor- 
mation om disse cornputeres virke- 
made. 

Commodore har forbedret sig, 
hvad angar deres manuater, men de 
er langt fra fyldestgorende, hvis 
man vii ga lidt dybere i programme- 
ringen. Derfor udgtver man de sa- 
kaldte "programmers reference 
guide-. Men heller ikke de er altid 
nok. Del har forlaget Data Becker i 
VesttysWand fundet ud af , og er ble- 
vet rige pa. 

Nar en computer som C64'eren 
eller Schneider/Amstrad model- 
lerne bliver populaere i den grad, de 
er btevet del. heenger del meget 
noje sammen med deres udbud af 
software og informationen omkring 
dem. Virkningen er dobbelt. For nar 
der saslges mange computere, far 
forlagene ogsa solgt mange boger. 
og mange boger giver igen storre 
inter esse. Del har Data Becker spo- 
ret, og deres -C64 Intern- har solgt 
i omkring 100.000 eksemplarer. Del 
med god grund, for del er en frem- 
ragende bog. 

Nu er ogsa 128'eren dukket op - 
omsider. Data Becker gennemforer 
igen kunststykket: Atvsere kiarmed 
meget fyldestgorende boger, som 
bade dokumenterer og inspirerertil 
yderligere aktiviteter med compule- 
ren. Forelobig er det blevet til to 
fitter -Commodore 1.28 Intern- og 
"Commodore 128 tips og tricks". 
Tro det eller lad vasre, de er endnu 
bedre end forgaengerne til dem om 
64'eren. 



INTERN 

Hvad indeholder en bog som »128 
lntern«? Ikke sa lidt. Den fortasller 
pa sine 507 sider om all det, manu- 
alen skojter henover. I forste om- 
gang forlaelles der om de forskellige 
I/O muligheder og 128'erens op- 




bygning. Specielt er af snittel om R S 
232 fyldigt, og der gives eksempler 
pa portens progfammering af bl.a. 
baudhastigheden. 

I afsnit 2 forlaelles om VIC-chipen 
I 128'ererv der har el par registre 
mere end 64'eren har, men som el- 
lers er opad kompalibel. Selv starta- 
dressen SDOO er den samme. Men 
man kan arbejde med 128'eren i to 
tempi, nemlig styret med 1 eller 2 
MHz. Her far mart at vide, hvordan 
der stilles om, og at 64'eren ogsa 
kan kore hurtigl. selv om man skal 
tage forskellige hensyn. Sa kommer 
et afsnit om sprites. e1 om tastatur- 
belaegningen, farve og grafik. 

I naeste kapilel beskrives CIA 
6526, der styrer ind- og udgange. 
Alle registre - 40 styk - gennemgaes 
minutiost, timeren beskrives. og 
man far at vide, hvordan man und- 
gar den ah/igelse. der er i 128'erens 
interne ur. gennem el •■realtidsur*'. 

I kapitel fire er det iyden det gaal- 
der. Da det er samme sag som i 
64'eren gar vi hurtigt wdere. Det gor 
bogen ikke og bruger 20 sider pa 
sagen. trods ligheden. 

I 5. afsnit beskrives de tre mulig- 
heder for tilslutninger af skasrme via 
8563 VCD chipen. Hvad siger de til 
80 tegn i 64-modus. Det kan lade sig 
gore! Men der er mange andre 
laakre detaljer beskrevet, f.eks. om 
at forandre tegnmatrixen, skaerm- 
linjeantallet og meget mere. 

I kapileS seks beskrives MMU'en 
det er Memory management Unit, 
der styrer de mange modes og de- 
res forskellige adresseringer. Her 
beskrives bl.a. paging-teknikken, 
hvor man kan have flere program- 
mer I maskinen samttdig. 

I 7. afsnit gselder det assembler- 
programmeringen. Meget fint. for 



prov bare at trykke F8. sa er du i den 
indbyggede monitor. Som saadvan- 
ligt i denne bog. beskrives IC'eren, 
og det er denne gang CPU'eren 
8502. Sa beskrives de rutiner. der 
eksisterer, og som man meget let 
kan tage med ind i sine programmer 
som subrutiner, de vigtigste kernal- 
rutiner gennemgas, 60 af slagsen 
gennemgas grundigt og yderligere 
en snes beskrives kort. Herefterfol- 
ger en raskke tips og tricks, f.eks. 
spasrring af stoptaslen. 

Pa side 205 nar man frem til Z80 
chipen. Det er jo nye sager for en 
gammel Commodore mand, men 
den beskrives ogsa - omend noget 
kort. 

I kapitel 8 kommer sa bogens 
scoop. En kompletlistning afdele af 
ROMen, som vaakker mest inter- 
esse, nemlig Kernal. Hvilken list- 
ning! Se eksemplet Det er tysk 
grundighed, det kan forstaes. og 
som rigtig udnyttet, er guld vasrd. 
Ud over Kernal er ogsa Zeropage, 
og den udvidede Zeropage beskre- 
vet. Det er ogsa gjort grundigt, og 
er fantastisk guf for en program- 
mer. Som et ekstra clou, er der 
ogsa en alfabetisk Kernal-rutine 
oversigt. 

Bogen rummer desuden en to- 
kentabel, den har en komplet 
tegnsaat-oversigl. og en matrix- 
oversigt. Endelig beskrives hardwa- 
ren i de forskellige modes, og der er 
nalurligvis et stikordsregisler. 
Denne tog kan ingen serios pro- 
grammer undvsere! 

Titel: 128 Intern. 507 sider 
Forlag; Data Becker/import. Nordick 
Computer Software, Ringkobing 
Pris 348 ,- ■ 
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The last cue 



af Jorgen Jorgensen 
Hvori ligger den fundamentale for- 
skel pa en computer og den men- 
neskelige hjerne? Sporgsmaiet 
treenger sig mere og mere pa et- 
terhanden sorn computerne bliver 
mere avancerede og talen om kun- 
stig intelligens kan ikke leengere 
affcerdiges med et overbsrende 
skuldertrsk. 

Den menneskelige hjerne kan 
Ifiere af sine egne erfaringer og ge- 
nerere sin egne programmer. Del er 
det sidsle, der er meningen med 
THE LAST ONE. 

Hvad er THE LAST ONE? 

Skal man iro den pressemedde- 
lelse, der kom sammen med pro- 
gramme!, er der ingen tvivl om, at 
dette program er den storste opda- 
gelse siden udnyttelsen af ilden og 
opfindelsen af hjulet 

Overlor den slags skat man altid 
sla koldt vand i blodet og i forste 



omgang nojes med at konstatere, at 
THE LAST ONE simpelthen er et 
program, der setv kan skrive pro- 
grammer (i BASIC) ud fra en dialog 
mellem computeren og brugeren 
om, hvad programrnet skal kunne 
udfore. 

Det lyder spsendende, og be- 
stemt interessant nok til en test. 

Historien bag programrnet 

THE LAST ONE blev oprindelig ud- 
viklet til Apple II, og har stden vseret 
lanceret til IBM PC og IBM PCjr. 

Der var imidlertld i starten store 
vanskeligheder med at konvertere 
programrnet til Commodore 64, og 
programmel blev »henlagt« for 
denne computers vedkommende. 

Et dansk team tog senere pro- 
gramrnet op igen, og i marts i ar. 
lykkedes det at fa has pa proble- 
merne og frembringe en version til 
C-64. , 



Hvad kan programrnet bruges til 

Har man interesse i at udvikle seri- 
ose programmer, sku He et kartotek- 
sprogram kunne udvikles pa et par 
timer og et komplet finanssystem 
pa et par dage. 

Det er sikkert ogsa rigtigt. men 
det forudssetter nok, at man er ret 
velbevandret i programrnet. 

Brugervejledningen 

Denne er i et lille ringbind og er pa 
70 sider. Den er -skrevet i sene nat- 
tetimer<\ men virker god at arbejde 
med. 

Indholdsfortegnelsen er over- 
skuelig, men et stikordsregister 
mangier totalt. 

Vejledningen er opdelt i fire af- 
snit. Forste afsnit handler om kopt- 
eringen af disketten til arbejdsbrug 
(programrnet er i ovrigt beskyttet 
med en dongle). 

fortsaettes side 61 ► 



KONTO UDEN UDBETALING 



En 1 ZSK computet . med alle mulighederno mdbygget. Vod njjpip at 2 proces- 
sors er det mulKJt at fa 128'et on til at oplraade som en Commodore 64. Mm 
CP/M compxjter og naturttgvis som Commodore 1 28. Medmulighed lor at ko- 
re all ekslstorende 64 soltware, er C 128 todi sieerk. Da don ogsa Um kae 
CP/M 3.0, vll Commodore '28 ogsa were vetegnei til at lose administrative 
opgaver mod Wordstar . Muliiptan. Ooase, Perfect Writer. Perfect calc, Per- 
led ti ler, Portoci speller, soltware senen JANE . saml andre CP/M losninger 

Commodores stanke PC look lower Ikke for meget. lasialureJ er elegant ind- 
rettet. rneO logis* opdeirng al tasterne, itvllket gor oen velegnet til lang tw& 
tyug. I eks. tekstbehandlinri etler siorre talopgaver 
Commodore 1 28's Basic 7.0 et en kraftrg forbedrlng al version 2-0 og bydet pa 
vlrkeljgt mange laeiiiteter. Detto gaaldor struktur, grafifc. ryd/musik. og lunkr 
uonsKommandoer Derudovar det nye DOS og en ra?kke njaalpe'unktioner 
Do nye grajiske Kommandoer giver blj. rnuligned for koUlsons delect Ind- 
bygget sprlie designer, shawm vtnduer. load/save sprites og merjot andet. 
SWermen kan opdolos som kombineret teksf grafik (Of mat teksi lormal 40/ 

80 tegn, graftk sfciBrm. nit afnamgigt at behov 

Tit Commodore 1 28 er der ogsa mulignefl (or tfisiutnlng at CP/M drskette- 
atation. monitor/TV. pjinter, modem. joystick, cartridge, extern RAM udvxlel- 
se til 51 2K, kamora og mange andre lacilrteter, 
Commodore 128, on lovende computer W professions!! og hobby fcrug. 
Rekviter vor speclalbrochura for ydethgere oplysninger. 



COMMODORE 128 



Ekstra tllbeho-r. 
ring (or prts 

1571 Diskettedrev 
1902 Monitor 
Mus 
Modern 



ca. kr. 4.495. 

ca. pr. md. 300,- 




^or. md. kr. 



J^&ommodore VIC 1541 Commodore C-64 

kr 2.895.- 1-995-" 

Commodore 1702 

kr. 2.895.- 



pr.md.kr. 200.- 
Commodore MPS 802 

printer ry QQC - 

pr. md. kr. 200.- *r. ^. 



monitor 

pr. md. kr. 200. - ' 



SPECTRUM 



1 



- Alle priser 
incl. 22% moms 

EXPORT 

aito eipons^kj 
over if iOQ0.- 
fratrmkt&s rnom$ 



Hoslrupsvej 2 - 1950 Kobenhavn V 

(v FredenksbergSuiion) Tlf. Q1 372281 eller 02- 964344 



GRATIS PRISLISTE 



Navn 

Adresse— 



Post nr. _ 



By 



Daiamai 

Onsker yderligsre informaiion pa: 
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Maskinkode 



af Jorgen Jorgensen 

Vi har faet breve fra mange 
laesere, der ikke er klar over, 
hvad der sker, nar man begynder 
at AND* eller OR'e en adresse i 
forbindelse med en PEEK og/ 
eller POKE. Da vi samtidig 
starter en gennemgang af 
128'erens "Zeropage«, vil det 
vaare pa sin plads at gennemga 
dette problem pa denne maneds 
maskinkode-side. 



OR betyder »eller« og i sa tilfaelde vil 
det vsere tilstrsekkeligt, hvis en af 
betingeiserne er opfyldt. 

Bruger vi derimod AND, skal 
begge betingelser vaere opfyldt. 

Sa langl er der ikke noget nyt, og 
i virkeligheden drejer det sig ogsa 
kun om at bruge disse to udtryk 
logisk 

Nar vl PEEK'er og POKE'r er det 
een byte vi manipulerer med. En 
byte bestar af 8 enkelte bits, der 
hver reprassenterer en vaardi i num- 
merrsekken 1 . 2. 4. 8. 16, 32. 64 og 
128. Den forste bit. som vi kalder 
nummer 0. har vasrdien en. den nas- 
ste (nr.1 ) har vaardien 2 osv. Hvis bit 
nr. 2 er taancft (1). har den veerdien 
4 - er den slukke (0) , har den vaar- 
dien 0. 

Nar vi AND'er eller OR'er foreta- 
ger vi blot en sammenligning bit for 
bit. Resultatet af denne sammenlig- 
ning bestemmer det endelige resul- 
tat. 

Foretager vi sammenligningen 
med AND, ser resultatet saledes 
ud: 

1 AND 1 = 1 (resultat) 
1 AMD 0 = 0 
0 AND 1 = 0 
O AND 0 = 0 

Hvis vi f.eks. skriver: 

PRINT PEEK(49152)AND3 




kan vi prove at se. hvad der sker. Vi 
antager, at vasrdien i adresse 49152 
har vaardien 26. Vi deler tallene op 
i enkelte bits. 

BIT V/ERDI 128 64 32 16 8 4 2 1 
PEEK 49152 0 0 0 1 1 0 1 0 
AND 2 0 0 0 0 0 0 1 1 

RESULTAT 0 0 0 0 0 0 1 0 
Hvis vi sammenligner bit for bit, 
vil vi se, det kun er i anden bit fra 
hojre (bit 1 - vi starter ved 0), hvor 
betingelsen er opfyldt. 

Hvad kan vi sa bruge det til? Hvis 
du er stodt pa udtrykket at -laegge 
en maske«, behover det ikke at 
handle om hverken komedie, faste- 
lavn eller make up. Vi kan "laagge en 
maske« over en byte for at sikre os, 
at en bestemt bit er enten teendt 
eller slukket uden at pavirke de ov- 
rige bits. 

Lad os sige, at vi onskede at 
slukke for bit 1 (den med vaerdien 
2). 

Skrev vi POKE49152.0. ville vi 
selvfolgelig slukke den. men vi ville 
ogsa slukke alle de andre. Skrev vi 
POKE491 52,255-2 ville vi ogsa 
slukke den, men vi ville i sa tilfaalde 
tasnde for resten og de! var ikke 
meningen. Hvorfor kan du se her: 



I Basic ser kommandoen saledes 

ud: 

P0KE49152.PEEK{49152)AND253 

Taande for en bit 

Hvad nu hvis vi i stedet vil taande for 
en enkelt bit - stadig uden at asndre 
de ovrige? 

Det er nok noget med ••OR», vil 
den vakse Iseser taanke. Ja, lad os 
kikke pa OR: 



1 OR 1 
1 OR 0 
0 OR 1 
0 OR 0 



= 1 

= 1 

= 1 

m 0 



2 «= 
253 = 



0 0 0 0 0 0 1 0 
1111110 1 



Vi nasrmer os alligevel losningen. 
for hvis vi nu AND'er indholder med 

253: 

49152 = 0 0 0 1 1 0 1 0 (26) 
AND 253 = 1 1 1 1 1 1 0 1 
RESULTAT = 00 0 1 1 000 (24) 



Vi fik for slukket for bit 1 og onsker 
nu at »ta3nde» for den igen. Denne 
gang er det mere simpelt. idet vi 
blot OR'er med den (eller de) bit, vi 
onsker at tasnde: 

49152 = 0 0 0 1 1 0 0 0 (24) 
OR 2 = 00000010 
FtESULTAT = 0 0 01 1 0 1 0 (26) 



Det var sk det mest almindelige. 
Vi mangier stadig XOR og NOT. 
Dem vender vi tilbage til en anden 
gang. Om det har noget med ma- 
skinkode at gore? I hoj grad. da for- 
staelsen for denne manipulation 
med de enkelte bit er noget af det 
mest fundamental t maskinkod- 
ning, og hvis du forst forstar, hvad 
der sker i de enkelte bits, vil der 
nasppe komme noget senere, du 
Ikke kan forsta. ■ 



18 



LaBsertricks 



Fra Ole Andersen i Aalborg har vl 
modtaget nedenstaende tips til 
brugen af dlskettestationen. 
Skulle andre Isesere ligge inde 
med forskellige gode tips og 
tricks, vil vi pa redaktionen glade 
os til at bringe dem videre til bla- 
dets evrlge leesere. Ole Andersen 
skrlver: 



En ting jeg Ikke har set i instrukti- 
onsbogen til disk drevet 1541, eren 
funktion til at Isegge en tekst bagef- 
ter en sekventiel file. 

Forst ma vi oprette en til, •for vi 
kan lasgge noget til. Dette virker kun 
pa diskette. Filen laves som folger: 
10 AS = - (en teks! du vil gemme) 

20 OPEN1.8 ( 3..'APPENDT£ST,S l W« 
30 PRINT # 1. AS ;CHR$(13); 
40 PRINT** 1.CLOSE1 

Gem programmet, skriv RUN og 
tryk pa RETURN tasten. 



Mar du har gjort det, kan du fFette 
en teksl bagefter den, der er gemt 
nu. Det gores pa naesten samme 
made, som nar man skriver filen pa 
disketten: 

10 A$ = » (en ny tekst du vil gemme) 

20 OPEN 1 .8.3MPPEND TEST.S.A- 
30 PRINT#1,AS;CHR$(13); 
40 PRINT # 1;CLOSE1 

Na du har rettet det forste pro- 
gram, sA det ligner det andet, kan 
du gemme og »RUNNE« det. Nu bli- 
ver den nye tekst lagt bagefter den 
forste tekst pa disketten. Du kan jo 
prove at aandre teksten i linie 10 og 
flette flere tekster bagefter. Nar 
dette er gjort. kan du se, om det nu 
ogsa" er rigtigt. Her kommer et pro- 
gram, der kan lasse filen og skrive 
teksterne pa\ sksermen. Lav nu ikke 
sa mange tekster, at de ikke kan sta 
pa skasrmen, for sa bliver det uover- 
skueligt, mens du tester program- 
merne: 




10 T = 1 

20 OPEN 1.8,3.»APPENDTEST.S.R« 

25 IF ST THEN 35 

30 GET# 1,BS:IF BS <> CHRS(13> 

THEN AS (T) = A$ (T) + BS :GOTO 25 

33 GOTO 100 

35 CLOSE 1 

40 FOR 1 = 1 to T-1 PRINT A$(0 : 
NEXT I 
50 END 

1O0T=T + 1 : GOTO 25 

Tast programmet ind og --RUN« 
det. Du vJI nu kunne se, at teksten 
du har lagt ind til sidst biiver skre- 
vet ud nu. Linie 25 kraaver maske 
lidt forklaring. ST er en variabel. du 
ikke selv kan bruge. da computeren 
bruger den. Maden linien er skrevet 
ud pa betyder, at hvis ST er <> 0 
(forskellig fra nul),v vil programmet 
hoppe til linienummeret, der star 
bagefter THEN. Nar programmet 
n3r slutningen af filen pa disketten. 
vil ST blive lig med 64, som betyder 
-slut pa filen- (END OF FILE (EOF) ). 




Software 
Emballage 



Vi er forende producent § kassetter 
og ringbind til software emballage. 

Du kan fa produceret i alle formater, 
materialer fra papir til Iserred, stof, skind og med 
den trykteknik, der passer til dit valg. 



Leverandor 
til IBM. 



Ring og h0r nasrinere 

(06) 29 59 77 




Michael Drewsens Vej 17. 8270 Hojbjerg 




Verdens hurtigste operativsystem 
til din CBM 1541! 

I Op til 20 x HURTIGERE LOADING ! 

> Indbygget 2 MIN. BACKUP-PROGRAM! 

t Formattering pa 11 SEKUNDERt 

I Indbygget RESET-KNAP' 

» Mere end 20 NYE BASIC-KOMMANDOER! 

• Krsever INGEN INDGREB I DIN COMPUTER! 

> FYLDER INTET i HUKOMMELSEN! 
1 100% nardware-baseret! 

> Indbygget BASIC 4.0. DOS-KOMMANDOER! 
t Langt HOJERE DATASIKKERHED) 

t MARKED ETS SUVER/ENT BEDSTE 1541-TURBO! 

Pris: 985,- incl. montering. 

Eneforhandler & distributor: 




Postboks 28 - 2980 Kokkedal 
Ordretelefon (02) 24 26 58 ■ Ma-so kl. 6,00 til 22.00 
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BEGYI1DERSIDEN 



af Steen Schmeltzer 

Sidste gang kiggede vl lldt pa 
PRINT kommandoen, det skal vi 
fortscette med denne gang. Men 
forst skal du Indlaese eller Indtaste 
det demonstrationsprogram der 
findes I programsektionen andet- 
steds her i bladet. Hele program- 
met er forklaret ved hjaalp af REM 
ssetninger. Du b-ehover Ikke indta- 
ste REM seatningerne for at fa pro- 
gramme! til at virke, de er kun med 
for forklaringens skyld. 



Det forste vi skal beskseftige os 
med denne gang, er brugen af far- 
ver i en PRINT saetning.Det kan go- 
res pa to mader. Med CHR$ koder 
og med brug af kontrolkaraktere 
inde I selve teksten. CHR $ koder er 
en samling af tat, der hver isser re- 
praesentere et tegn eller en kontrol- 
karakter. Pa siderne 131-132 I den 
danske brugervejledning. findes en 
nassten komplet samling/oversigt 
over CHRS koderne. Naasten kom- 
plet ja, for i min brugervejledning 
mangier der nemlig angivelse af 
halvdelen af farverne: Her folger en 
oversigt over de manglene farver: 



Orange 


= CHRS (129) 


Brun 


= CHRS (149) 


Lyserod 


- CHRS (150) 


Gra 1 


= CHRS (151) 


Gra 2 


= CHRS (152) 


Lysegron 


- CHRS (153) 


Lysebla 


- CHRS (154) 


Gra 3 


= CHRS (155) 



Denne metode kan ogsa bruges 
selv om man ikke er ved at lave 
PRINT sastning Prov at holde CTRL 
fasten nede, tast sa en af lalta- 
sterne (dog ikke 9 eller 0). Nu skulle 
cursoren have skiftet farve, hvilken 




farve kommer an pa. hvilken taltaste 
du brugte. Hvis du hele tiden holder 
CTRL tasten nede. kan du skifte 
mellem de 8 farver hele tiden. Det 
samme gaelder, hvis du bruger 
COMMODORE tasten og en af tal- 
tasterne. COMMODORE tasten er 
den taste, der befinder sig I det ne- 
derste venstre hjorne af tastaturet. 
Den er masrket med COMMODO- 
RE'S logo. Som det ses i linje 120, 
er det muligt, at skifte farve flere 
gange i en PRINT saatning. Hvis du 
ikke rigtigt ved. hvordan de spe- 
cielle tegn der f.eks findes i linjerne 
26-56, skal du kigge Hdt i vores ind- 
tastningsveiledning. den findes an- 
detsteds i bladet. Der star forklarin- 
gen pa alle de rnserkvaardigheder 



der kan fremkomme i program- 
merne. Hvis du har problemer med 
at fa de specielle tegn frem, kan det 
va?re. at du basrer dig forkert ad. 
Hvis din cursor pa nuvserende tids- 
punkt star og blinker nedenunder 
READY, kan du prove folgende: 
hold CTRL tasten nede og tast 3. Nu 
skulle cursoren sksfte farve til rod. 
Hvis du nu taster "(holder CTRL ta- 
sten nede og taster 3) skulle der 
fremkomme et kontroltegn. Altsa, 
kontroltegnene kommer forst frem 
og virker kun inden for et sae! " . Selv 
om du har skrevet en sastning i ", og 
bagefter flytter cursoren op i den 
saetning, der star i ", og derefter 
prover. at fa et kontroltegn frem. vil 
det kun lykkes. hvis du forst bruger 
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SHIFT/DEL og derved laver et ek- 
stra mellemrum. Prov at indtaste 
dette: 



1000 PRINT" DETTE ER EN 
TEST" < return > 



Ryt nu cursoren si den kommer til 
at sta lige bagved EN. Hold SHIFT 
nedtrykket og tast sa INST/ DEL en 
gang, nu skulle TEST flytte sig en 
karakter til hojre. Slip SHIFT, hold 
CTRL nedtrykket og tast 8 en gang. 
Nu skulle der vsere fremkommet et 
reverst pi-tegn. Tast nu < return > . 
Nu skulle saetningen blive udskre- 
vet saledes: 



DETTE ER EN med sort og TEST 
med gult. 



Hvis man afslutter en PRINT seet- 
ning med et semikoion ( ;} efter det 
sidste ", vil den nasste PRINT saet- 
ning blive skrevet I forlasngelse af 
den foregaende. Dette kan vaere 
meget nyttigt. hvis der er noget, 
man gerne vil have hsegtet sammen. 
Nar man bruger CHR$ koder i en 
PRINT sastning. behover man ikke 
adskille disse med et semikoion. 

Hvis du sammenligner brugen af 
CHR$ og brugen af kontrolkarak- 
tere i programlistningen, ser du hur- 
tigt, at det er lidt uhensigtsmeessigt, 
at bruge CHR$ til at skifte skrive- 
farve med, men laangere nede i pro- 
gramme! er der brugt CHR$ koder 
lil at skifte mellem upper og lower 
case. Dette kan ogsa gores ved 
hjaalp af nogle POKE kornmandoer; 
men person ligt kan jeg bedre lide 
CHRS koderne til dette brug. De af 
jer der er den heldige ejer af en 



printer, vil vide, at det nsesten er 
umuligt at bruge printeren til noget 
fornuftigt, uden at kende bare en 
lille smule til CHR$ koderne. 

Det er meget nemmere at bruge 
CTRL tasten eller COMMODORE 
tasten til at bestemme skrivefarve 
med. Se linjerne 76-106 i selve pro- 
gram met. 



TAB A SPC 

TAB betyder tabulator, og det er 
ogsa sadan denne kommando vir- 
ker Hver gang du bruger TAB. ta- 
ger kommandoen udgangspunkt fra 
yderste venstre margen pa linjen, 
hvor PRINT sastningen begynder. 
Det maximale antal positioner du 
kan bruge. er 255. Med TAB kan 
man opstille tabeller og kolonner og 
vsere helt sikker pa, at de kommer 
til at sta nojagtigt pa de rigtige ste- 
der. Se linjerne 192-194 i program- 
met, Syntaksen er: 



PRINT TAB (x)"TEKSTSTRENG". 
Hvor x er et tal mellem 1-255. 



SPC star for space. Wed SPC kan 
der indseettes mellemrum mellem 
ordene* SPC virker pa samme made 
som cursor right eller mellemrum- 
stasten. SPC sparer bare en masse 
plads i computeren. Hvis du kigger 
lidt pa eksemplet i programme!, lin- 
jerne 196-198. vil du se, hvor svsert 
eller naasten umuligt det er, at lave 
en peen opstilling med SPC. Hold jer 
til TAB, det er meget nemmere. 



GOSUB 

I programmet er der flere steder 
brugt en kommando, der hedder 
GOSUB. Det betyder egentligt GO 
TO SUBROUTINE. I dette program 
er der lagt en tidsforsinkelse ind. 



Den findes i linje 204. 1 stedet for at 
skrive denne kommando I alle de 
linjer. hvor den skulle bruges, har 
jeg flyttet den uden for selve pro- 
grammet og »kalder« den. hver 
gang den skal bruges. Nar compu- 
teren meder kommandoen GOSUB 
204, hopper den ud af udforelsen af 
selve programmet, og gar til linje 
204, her udfere den. den eller de 
kornmandoer der star der. Nar den 
moder kommandoen RETURN, 
hopper den tilbage til det sted, den 
forlod programmet pa, og fortsast- 
ter afviklingen af programmet. Dette 
kan forstaeligt nok spare en masse 
plads i computeren. 

Der kan Isegges alle mulige korn- 
mandoer i en GOSUB routine. Der 
kan ogsa ligge flere kornmandoer i 
den samme routine. 

Naeste gang skal vi uddybe GO- 
SUB. og kigge lidt pa GETJNPUT- 
.FOR- TO NEXT L0KKER og VA- 
RIABLER. 

Sporgsmal og ideer modtages 
gerne 



Adressen er: 
RUN 

Computerworld Danmark a/s 
Torvegade 52 
1400 Kbh. K. 

maark kuverten: BEGYNDERSIDEN 
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INPUT/OUTPUT 



af Tor Engebakken 




INPUT/OUTPUT er RUNS Ifflser- 
brevkas se. hvor du har muflghed for 
at fa svar pa nogte af de problemer, 
du gar og tumler med. 

Desvaerre kan vi ikke na at besva- 
re alle de breve, vl modtager. Vi 
prpver at fa sa mange med som mu- 
ligt og udvaslger dem. vi mener. der 
har bredes! interesse. 

Commodore-interesserede, som 
har sporgsmal elter tips at bidrage 
med, kan skrive til Tor Engebakken, 
Brandvoldgatan 1, 2000 Lillestrom. 
NORGE. 

INPUT 

Hej Tor! 

Jeg har et lifle problem, som du mi- 
ske kan hjaslpe mig med. 

Som radioamator bruger jeg mm 
CBM-S4 til RTTY via el modem, Nu 
vil jeg gerne kunne sende mine BA- 
SlC-programmer til mine medama- 
torer. Til det brug skal jeg bruge et 
program, som henter program- 
merne ind fra disketten, og Imgger 
dem ned igen som en sekventiel fil. 

Hiber. du kan hjsefpe mig med 
denne rutine. 

Med venlig hilsen 
Michael Judge 
Pederhaven 180 
2730 Herlev 



OUTPUT 

Der er egentlig ikke nogen principtel 
forskel pa en programfil og en se- 
kventiel fil. 

Rent bortsst fra, at filerne er 
masrket p& disketten som sekven- 
tielle filer eller programmer, er den 
eneste forskel den, at program-filer 
har to ekstra bytes I begyndelsen ai 
filen. 

Disse to bytes indertolder starta- 
dressen til filen, sSledes at maski- 
nen kan vide, hvor filen skal loades 
ind. 

Du behover to smS programmer 
for at udfore jobbet. 



Listning 1 oversastter en pro- 
gram-fil til en sekventiel fil, og pro- 
gram 2 oversaetter filen tilbage til en 
programfil. 

Programmerne fungerer bSde 
med hensyn til BASIC-programmer 
og maskinkodeprogrammer. 

Hvis du kun skal sende en udlist- 
ning, kan du lave den til en sekven- 
tiel fil efter metoden nedenfor. Pro- 
biemet er imidlertid, at det er bety- 
deligt vanskellgere at oversaatte fi- 
len tilbage, da den bliver lagret som 
en ren tekst. 

LOAD "PROG",8 

OPEN1 ,8,2. r 'PROG.SEQ,S,W" 

CMD1 

PRINT #1 

CLOSE1 




INPUT 

Jeg har et lille problem med INPUT- 
rutinen. Jeg vil gerne have, at den 
skal acceptere input af denne type: 
X=1:A=4*X 

Jeg kan jo leegge det ind i en 
strengvariabe! men jeg skal jo 
regne med det, og mi derfor asndre 
det med: 
A=VAL(A$) 

men si fir jeg ikke X-udirykket 
med. 

Venlig hilsen 
Hans Langsig 
Lserkevej 12, Barde 
6920 Videbaak 



OUTPUT 

Som du har opdaget, kan maskinen 
ikke uden videre kore denne type 
input. 

Man kan som sasdvanlig bruge et 
lille trick. Ved at hoppe ud af pro- 



grammed kan vi skrive mdholdet i 
strengvariablen ud pa" skaerrnen, 
udfore kommandoen i --direkte 
mode-, og derefter hoppe tilbage til 
programmed Dette gores ved at 
Isegge ASCII-vserdien for RETURN 
ind i keyboard-bufferen. og derefter 
fortaslle maskinen, at der er to ta- 
stanslag i denne buffer. Ved brug af 
cursortasterne kan vi fa placeret 
cursoren over de nsevnte linjer, sa- 
ledes at de bliver udfort. nar maski- 
nen udforer de to tast-anslag. 

N4r maskinen stoder p& END- 
kommandoen I linje 120. vil den 
stoppe programmed og returnere til 
direkte mode. Derefter vil den ud- 
fore de to return-indtastninger. og 
(Voila!) problernet er lost. 

Hvis du, som i dit eksempel, skal 
have flere Kommandoer ind, ma du 
begynde input' en med et anforel- 
sestegn. Ellers vil maskinen ikke ac- 
ceptere koionet. 

100 INPUTAS 

110 PRINTAS:PRINT"[2CN].GO- 
TO200[6CO]" 

120 POKE198.2:POKE631.13:PO- 
KE632,13;END 

200 PRINT"PROGRAMMET FORT- 
S/ETTER HER" 




INPUT 

Hej Tor. 

Jeg takker for et godt blad. Jeg gla? - 
d&r mig hver gang til at lasse det nye 
nummer af RUN. 

Jeg har siddet og arbejdet med 
et program den sidste uge, og det 
virker fint I begyndelsen af pro- 
grammet synes jeg selv. at jeg har 
fiet lavet et flot skasrmbilfede med 
eget navn osv. Nu vil jeg gerne 
sporge dig. hvordan jeg fa~r64eren 
til at ga" titbage til dette sksermbii- 
lede, nar maskinen ikke har vasret i 
brug i t.eks. 3 minutter. Jeg harpro- 
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vet mig frem med tidsvariablen TI$, 
men det er ikke rigtig fykkedes for 
mig. 

Med venlig hi/sen 
Henrik Lehnert 
Lynghoimvej 23 
2720 Van/ose 



OUTPUT 

Problemet kan ganske rigtlgt loses 
via BASIC, og det ved hjeelp af Tl$. 
Jeg regner med, at du el eller andet 
sted i programmet henter INPUT fra 
brugeren, og det er pa dette sted af 
programmet, at vi ma checke pa 
T1S. Siden vi faktisk ma foretage to 
operationer (1. Kent input/2. Check 
Tl$). kan vi ikke bruge INPUT-kom- 
mandoen. Denne stopper op for 
programmet. saledes at vi ikke kan 
komme videre for noget er tastet 
ind. 

Lcsningen ligger i GET-komman- 
doen. Denne kommando henter et 
taste-tryk fra tastaturet. og vi kan nu 
checke, om dette er en gyldig kom- 
mando. Hvis den er det, er sagen jo 
War, og vi returnerer til hovedpro- 
grammet. Hvis den imidlertid ikke er 
gyldig, checker vi Tl$, og hvis TIS er 
blevet storre end det antal sekun- 
der, minutter vi vil vente, hopper vi 
til en rutine. som udskriver skaarm- 
biltedet. 

Programmet -HEADING- er et 
eksempel ph. hvordan dette kan lo- 
ses. I dit eget program mS du selv- 
folgelig erstatte mit lille maskin- 
kode-program med dit eget skserm- 
billede. 




INPUT 

Hej Tor? 

Jeg har et par sporgsm£l til dig an- 
g&ende CBM-64. 

1. Jeg har kobt et SUPER-EXPAN- 
DER 64 indstiksmodul. I vejlednin- 
gen star der at BIT MAP SCREEN 
data er gemt i omnSdet: 
SAOOO-SBFFF (40960-49151) 
Dette omrUde kan ikke umiddelbart 
PEEK'es, men kan man vedhjaslp af 
et maskinkodeprogram leese disse 
data direkte. eller ffytte dem tit et 
sted, hvor de er lettere tilgaenge- 
fige? 

2. Hvordan far man 80 kolonner pS 
skaermen? 



3. Err VIC-20 kan sti og arbejde 
uden at vsere koblet til en skserm. 
Jeg harprovet det samme med min 
CBM-64. men programmet forsvin- 
der. Hvorfor? 

Hilsen 

Morten Granum-Jensen 
Borgergade 23 
8450 Hammef 



OUTPUT 

1. Nar dataene ligger under SAOOO- 
SBFFF. ligger de i samme omrade 
som BASIC-ROM. Denne kan kob- 
les ud ved at iasgge tallet # S36 Ind 
i adresse 1. 

Dette kan ikke gores fra BASIC, 
da du jo fjerner BASIC'en med 
denne POKE. Listning 2 giver dig en 
let m&de at komme til dataene pa. 
Forst RUN'er du programmet, og 
du har sa faet to nye ordrer. som du 
kan bruge.SYS49152,ADRESSE gi- 
ver dig adgang til det, som ligger i 
RAM. Du kan nu kikke bade under 
BASIC. KERNAL og Videochip'en. 
Indhoidet i denne adresse vil nu 
ligge t adresse 251. For at PEEK'e 
en adresse under ROM skriver du 
derfor: 

SYS49t52,ADRESSE:A = PEEK- 
(251):PRINTA. 

Der er ogsa indlagt en flytte-kom- 
mando. Denne har formatet: 
SYS49155,SOURCE,DEST,ANT 
SOURCE « Start af omradet, som 
skal flyttes. 

DEST = start af omradet, som data 
skal flyttes til. 

ANT - antal af blikke a 256 bytes, 
som skal flyttes. 

Hvis du skal flytte hojgrafikdataen 
fra 40960 til 8192, skriver du: 
SYS49155,40960,8192,32 

Flytterutinen checker ikke om 
omraderne, som skal flyttes, over- 
lapper hinanden. sa det ma du selv 
passe pa 

2. Du ma enten selv skatfe dig et 
80-tegns kort, eller skrive dit eget 
program, som ordner dette. Det er 
imidlertid ikke nogen enkel opgave. 
Nogle af de problemer du vil stode 
pa. er at du nu skal fa plads til to 
karakterer indenfor en enkel 8 
gange 8 karaktermatrice. Du ma 
ogsa skrive dine egne printrutiner, 
som kan dele en karakter i to dele 
og laagge monsteret sammen igen. 
for det sendes ud pa skaermen. 



3. Der skulle ikke vasre noget i vejen 
for at lade maskinen sta" alene og 
arbejde. Tidligere brugte jeg faktisk 
en 64'er som vsekkeur. og da stod 
den jo hele natten igennem. 

Jeg har imidlertid oplevet samme 
problem, og hos mig havde faeno- 
menet sammenhasng med fryseren, 
som satte igang og resatte maski- 
nen. Jeg loste problemet ved at 
ssette ledningen i en stikkontakt, 
som ikke var tilkoblet samme kreds 
som fryseren! 




INPUT 

Hermed et par sporgsmii af forh&- 
bentlig almen interesse: 
Jeg har taenkt mig en fast opstilling 
af 64 'eren, monitor, printer og data - 
sette. Brugervejledningen siger, at 
afstand monitor/ datasette skal 
vsere ca. 60 cm. Det kan jeg ikke 
opn&. Er denne afstand nodvendig? 
Hvis den er det, vil det da kunne 
fade sig gore at indseette et skjold 
melfem monitor og datasetten? 

Hi/sen AB 



OUTPUT 

Grunden til, at der skal vasre en vis 
afstand mellem monotor og data- 
setten er den, at magnetfeltet fra 
monitoren vil kunne forstyrre load- 
ningen af programmerne. I uheldig- 
ste tilfaelde kan det ogsa fore til, at 
programmerne bliver slettet fuld- 
stasndig. 

Hvis du ikke kan opna den nod- 
vendige afstand, vil det hjaelpe at 
skaerme monitoren med et eller an- 
det metal. 




INPUT 

Jeg har haft min CBM-64 i et ir, men 
i lobet af det &r er det ikke fykkedes 
for mig at finde ud af, hvordan man 
/aver hojoploselig grafik over hele 
skaermen. Kan du hjsetpe rnig med 
dette? 

Med venlig hilsen 
Tornas Berg 
Phistersvej 13 

2800 Helierup ► 
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OUTPUT 

En hojoploselig skaerm pa CBM-64 
svarer pa mange mader til en almin- 
delig skaerm. Pa trods af navnet vil 
vi ikke kunne fa nogen storre oplos- 
ning pa sadan en skaerm end hvis vi 
brugte de saedvanlige karakterer el- 
ler lavede vore egne. Del vi kan fa. 
er fuld kontrol over hver eneste bit 
pa skaermen. og det kan jo vaere til 
nytte. 

Det forste man ma vsere op- 
maerksom pa ved hojoploselig gra- 
fik er selve pladsproblemet. Mens vi 
med en almindelig skaerm ikke be- 
hover mere end 1K med karakter- 
pointere for at fortaelle, hvad slags 
monster, vi vil have ud. ma vi i ho- 
joplosnmgsgrafik afsaette mere end 
8000 bytes til skaarmdata. Dette 
skyldes, at Videochip'en i almindelig 
karakter-mode betragter det, som 
er lagret pa skaarmen som en poin- 
ter, som peger ind i karaktergenera- 
toren. 

Nar Videochip'en ser et 1-tal I 
adresse 1024 (overst pa skasrmen), 
vil den gange dette tal med 8 for sa 
at hente 8 bytes fra karakter-gene- 
ratoren, og vise dette bit-monster 
pa skaermen. Dette er temmelig 
pladsbesparende, men vi bliver be- 
graenset til at have hojst 256 for- 
skellige monstre pa skaermen pa en 
gang. 

Nar vi er i hojoploselig mode, vil 
Videochip'en hente bitmonsteret 
direkte fra et 8K omrade. og vi kan 
da have forskelligt monster i alle ka- 
rakterrutinerne! 

Jeg vselger fortsat at kalde det 
karakterlelter, fordi skaermen pa 
irods af "hojoplosningen« stadig 
ligner en almindelig skserm. 

En hojoploselig skaerm vil vsere 
320 pixels (punkter) bred, og 200 
pixels hoj. Bytes 0-7 af bit-map hu- 
kommelsen vil svare til det, som 
normalt er overste venstre hjorne af 
sksermen. Bytes 8-15 svarer til den 
naeste karakter osv. 
FARVEHUKOMMELSEN 

Indenfor hver enkelt »karakter« 
kan vi have to forskellige farver. In- 
gen af dem hentes fra den sasdvan- 
lige farvehukommelse i $D8000 
(55296). I sledet hentes informatio- 
nen fra det, som normalt er skser- 
madressen (1024-2023). 

Indholdet I disse adresser deles 
i to, og de fire overste bits indehol- 
der forgrundsfarven, mens de fire 
nederste indeholder baggrundsfar- 
ven. 



Skal du sestte baggrundsfarven 
til rodt. og forgrundsfarven til hvidt, 
ma du sknve: 
POKE ADRESSE, 1 * 16 + 2 
(1 = hvidt/ 2 = rodt) 

VIDEO BANKS 

Videochip'en er i udgangspositi- 
onen ikke i stand til at overskue 
mere end 16K. 

Der er fire af den slags btokke I 
64'eren, og nar vi starter maskinen 
op, »ser« Videochip'en pa blok nr. 0 
fra adresse $0000 til $3FFF. Da 
tegnssettet vil komme frem i adres- 
serne S1000-S1FFF er den eneste 
brugbare adresse for hojoplos- 
ningsskeermen fra $2000-$3FFF. 
Dette er jo midt i Basic-omradet. og 
der skal ikke meget til. tor vi ramter 
mod loftet og vores program be- 
gynder at blande sig med skaer- 
momradet. Hvis dette sker, ma vi 
flytte omradet som Videochip'en 
»ser« pa. 

Dette gores pa folgende made; 

10 POKE56578,PEEK(56578)OR3 

20 A«1:POKE56576.(PEE- 

K(56576)AND252)ORA 

30 REM A = 3:BANKO=$0000- 

S3FFF 

40 REM A = 2 : BANK 1 = $4000- 
$7FFF 

50 REM A = 1 :BANK2 = S80Q0- 
SBFFF 

60 REM A = 0;BANK3 = SC000- 
SFFFF 

70 POKE648.33792/256 

Must at alt. som har med grafik at 
gore, folger med, nar du forandrer 
Video-bank. Sksermen og tegnsaet- 
tet folger f.eks. med. og i bank O og 
2 vil du have adgang til det normale 
tegnsaet. 

For ikke at kornplicere sagen for 
meget, forudsaetter vi, at sksermens 
placering er den samme. Vi ma alli- 
gevel forandre en adresse blandt 
systemvariablerne, saledes at edi- 
toren ved, hvor den skal arbejde. 

Hvis vi flytter til bank 2, vil skaer- 
men folge med, og laegge sig i 
S8400 (33792). Denne adresse ma 
deles med 256, og resultatet PO- 
KE'S ind i adresse 648. 
HVORDAN FAR MAN EN BIT FREM 
PA SK/ERMEN 

Forst ma vi saette maskinen i ho- 
joplosnings-mode. og flytte skeer- 
men til S2000. 

10 POKE 53265.PEEK(53265)OR- 
32:REM S/ET MASKININEN I HI- 



RES MODE 

20 POKE 53272,PEEK(53272)OR- 
8:REM BilTMAP BEGYNDER I 
$2000 (8192) 
30 BITMAP = 8 192 

En pixel pa skaermen kan define- 
res indenfor x/y-koordinat, hvor X 
kan vsere fra 0-319 og Y fra 0 til 199. 

Vi behover derfor en formel for at 
saatte en bit indenfor dette koordi- 
natsystem. 

For at finde ud af , hvilken -karak- 
ter«< vi har med at gore, ma vi forst 
dele X og Y med 8 (der er jo 8 bytes 
i hver karakter). 

100 RAD«INT(Yf8):KAR = lNT(X/ 
8) 

Derefter ma vi finde ud af, hvilken 
af de 8 bytes, vi skal se naermere pa. 
Dette gores ved at finde den rest 
der Itgger i regnestykket INT(Y/8). 

110 LINJE-(YAND7) 

For at finde frem til, hvilken bit 
det drejer sig om, ma vi have resten 
af X/8. Vi vil da finde frem til, hvilken 
bit det drejer sig om, men regne- 
stykket mangier lidt for at blive rig- 
tigt. Hvis resultatet af dette regne- 
stykke bliver 0 skulle vi jo tro. at det 
bliver bit 0, det drejer sig om, men 
det stemmer jo ikke. Mens vi nor- 
malt regner bit'ne fra hojre mod 
venstre, vil vi her Vcere intaresseret 
i at saette bit'en laangst mod ven- 
stre, og dette jo bit 7! 

120 BIT = 7-(XAND7) 

VI har nu de nodvendige tal for at 
finde ud af. hvilken BYTE og BIT det 
drejer sig om. 

1 30 BYTE = BITMA P + RAD * 320 4- 
KAR * 8 + LINJE 

140 POKE BYTE,PEEK(BY- 
TE)OR2JBIT:REM (2JBIT) VIL GIVE 
OS TALLET FOR AT S/ETTE BIT 
150 REM: POKEBYTE,PEEK(BY- 
TE) AND(255-21 BIT) :REM CLEAR 
BIT 

Til sidst skal jeg bare naevne. at 
LISTNING 3 er en primitiv hi-res edi- 
tor. Du bevaeger en pil rundt pa 
skaermen ved hjaelp af cursor-ta- 
sterne. 

»S" saetter bit. 
»C« reset'er bit. 

-X- afslutter. ■ 
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IPKCeiRAVM 

SECTION 



Kvikfind for 128'eren 

10 N=7 : □ I MNi C N 3: FDR I = L TON: READN* C I 3: NEXT 
:T(i=lB 

20 PR I NT " C CLR ] 1 BLK 1 PROGRAM C REU3C YEL 3KUI 
KFINPC 0FF3CBLKKCN]" 

30 PRINT" [ REU][ YEL 3SAUEC OFF DC BLK 3 SAA CR 

EU3C YEL3SC OFF K BLK 1 ELLER C REU3t YEULOAO 

C OFF 3 C BLK] SAA E REU ] C YEL ] LC OFF ] C BLK 3 " i 

40 GETJt: IFJ*=""THEN40 

50 PRINTJ*:PRINT: IFJt^S'-THENSA^l 

60 F0RI=1T0N:PRINTI; " " ! N*( I 3 : NEXTI 

70 PR I NT '" t CN ] I BLK ] F I ND NUPIflERC YEL3 " ; : INP 

UTJ 

80 IFJ<J2THENFL=i:CS/U3Fl_=2 
90 IFJ<1ORJ>NTHEN20 
100 J2=ABSCJ 1-J 3 
110 IFJ2=1THEN190 

120 IFCPEEKCI 3AND32 ) =0THENPR I NT C BLK 3 TRY 
K C REU 3 C YEL ] STOPC OFF 3 C BLK 3 PAA RECORDER" 
:UAIT 1,16 



130 I FFL=1THEN PR1 NT"t CN JC BLK3TRYK C REU3 
i YEL 3 REWf. OFF 3 1 BLK ] " ; GOTO 1 50 
140 IFFL =2THEN PRINT "£ CN3E BLK3TRYK C REU 3 
CYEL3F.FWDC OFF3CBLK3" 
150 WAIT! ,32,32:A=TI 
160 IFAB5Cn-fl3<CJ2-l 3*TH THEN 1 60 
170 P0KE192 ,l:POK£l .PEEKC1 30R32 
180 PR I NT "C CN 3 C BLK 3 TRYK CREUJ[ YEL3STOP10 
FF3CBLK3 PAA RECORDER" : UAIT1 . 16 
190 IFSA=0THEN220 

200 PRINT-[CLRl-:CHRiCl7);CHRiC17);CHRiC 
173; "SflUE";CHR4C343;NiCJ 3;CHR«C343iCMRiC 
193 

210 SA=B:GOTO230 

220 PRINT"CCLR3";CHR*£17 3;CHR*C17J;CHR*C 
17 3:" LOAD " : CHRi 1 34 3 ; Nt C J 3 ; CHR4 C 34 J ; CHRi C 

230 J1=J 

240 POK£208,t:POKE842,13:END 

250 DATAPROGRAMMEftlNG .SPRITES .KARAKTERER 

.GRAF IK.LYD .ANDET, 




SOLITAIRE 

INDSENDT flF 
JON liARQUARDSEN 
BAGUAENGET 13 
3400 HI LLERBD 



Til Commodore 64 



90 PRINT CUHT3CCLR3 

100 Din U7.73,CC13.TRiC323 

110 UAERDIG=118:8RAET =610: FLYT =070 

120 TEGN=1230 

130 POKE214 . l:P0KE21 1 , IB: SYS59640 

140 PRINT -=*=-t2SPC]SOLITAIREL2SPC3-=* 

150 UAEROI =410:BRAET=610: FLYT=870: TEGN = 1 

230:SUARSP]L =320 

160 GOSUB1600: GOTO410 

170 REI1 

190 REP* 

320 R£|1 -** SUARSPIL *s- 

325 POKE214 ,22:P0K£2l 1 .8: SYS58640 

326 PRINT C 38SPC] 

327 POKE214 .22:P0KE21 1 .0: SYS59640 
330 INPUT U1L OU SPILLE " I SP* 

340 IF SPi=J- OR SP»='JA" THEN GOSUB 11 
8 

350 IF SP4= X OR SP* = NEJ THEN END 
355 G0TO3ZS 

110 REP1 -=* OAEROI *=- 

110 FOR R = I TO 7 
160 FOR P1= 1 TO 7 

470 IF R>=3 AND R<=5 THEN TCR.P1 3=5 



508 IF rt>=3 AND Pl<=5 THEN T(R.m=5 
530 IF TCR.m<>5 THEN TCR.H)=-5 
550 NEXT 
560 NEXT 
570 TC1.1) = 0 

610 REtl -=* BRAET *=- 

620 PRINT t CLR]": 0=0 

625 P0KE214 .l:P0KE2ll .ia:SYS58610 

630 PRINT -=»=-C2SPC]S0LITAIREC2SPC]-=* 

e— 

640 P0KE214 .1:P0KE21 I ,5: SYS5B640 
650 PRINT* 1 2 3 4 5 6 7 
660 FOR X = l TO 7 

675 P0KE2l1.X*2tl:P0KE2ll.2:SYS 5861B 
690 PRINT X 

685 POKE211.X*2t4:P0KE21I.18:SYS 58648 

687 PRINT X 

690 FOR Y=l TO 7 

708 IF T (X , Y J=5THEN P0KE214 .X*2t1: P0KE21 

I .2tYx2:SYS5S640:PRINT CS/O]' 

768 IF T CX . Y 3-0THEN P0KE21 4 .X*2t1 : P0KE21 

1 .2-fY*2:SYS58640:PRINT " f 

?98 NEXT 

800 NEXT 

815 P0KE211 .20:POKE2l l .5:SYS58610 
828 PRINT I 2 3 1 5 6 7 
860 REfl 

870 REM FLYT *=- 

B30 P0KEZ14 .27: P0KE21 1 .6: SYS59610 

900 INPUT FLYT FRA - TIL ;TR»(Q) 

310 IF LENC TRSCQ 3 J 01 THEN GOTO 1800 

911 IF TR4Ca3= STOP THEN GOTO320 

312 IF TR*CQ]= LIST THEN GOSUB 1 S90 : GO T08 

70 

320 FOR N-! TO 4 

930 CCN]=UALCMI0tCTRtta3.N.I J3 

310 If C[N)>? OR CCNKl THEN GOTO 1900 

950 NEXT 

1118 IF CC130CC33 AND C(2)OCM) THEN G 
□TO 1000 

M20 IF TCCC1 1.CC23305 THEN GOTO 1880 
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1130 IF TCCCSJ.CCI 33O0 THEN GOTO 1800 

M18 IF CCI)=CC3) AND C[23=CC4) then got 

0 1800 

1150 IF CUX>CC3Jt2 ANDCC3 30CC I 3*2ANDC 
C2 3<>CC4 3+2ANOCC4 )<>C C2 )t2THEN 1800 
1170 I = INTCABS((C(13tC(3 3 3/2)) 
1180 J=INTtflBSCCCC2)TCCq 3 3/2 3 3 
1200 REN 

1230 REM -=* TEGN x=- 

1210 Q=Q-rl:GO5U01B30 

1250 P0KE214.U1 3*2-r1 : P0KE21 1 .2-rCC 2 3*2: S 
YS58640:FRINT f 
1255 TCCtl }.Ct2 3 3 = 0 

1260 P0KE214 . 1*2+4 I P0KE21 1 ,2+J«2: SYS5864 
0: PRINT' r 
1265 TCI .J 3=0 

1270 F0KE2l4.CC33*2ri:P0KE21l ,2+Ct13*2:S 
YS5864B:PRINT fS/Q] 

1275 TCCC33.C(433=5 

1276 IF 0=31 THEN GOTO 1300 
1280 GOTO 878 

1300 REN -=* HURRfl *=- 

1310 PRINT "t CLR3C YEL ] " 

1320 PRINT' MMH HHH UUU UUU RRRRRRt 2SPC3R 
RPRRRT 4SFC3AAAT. 2SPC1" 

1330 PRINT ' HC3SPC3HC 35PC3UC 3SPC3UC 3SpC] 
RC 3SPC]RR[2SPCJRt3SPC]RRC2SPC3AA AA 
1310 PRINT " Ht 3SPC 3HC 3SPC3UC 3SPC3UC 3SpC] 
RC 3SPC3RRC 2SPC3RC 3SPC ]RRC 2SPC3AI 3SPC3A " 
13S0 PRINT HHHHHC 3SPC3UC 3SPC3UC 3SPC3RRR 
RRC3SPC3RRRRRC3SPC3AAAAA " 

1360 PRINT Ht 3SPC ]HC 3SPCJUT 3SPC3UC 3SPC] 
R[ 2SPC3RC 4SPC3RC 2SPC3 R[ ISPCTRC 3SPC jfl " 



1720 PRINT AT SKRIUE ' STOP ' . 
1725 PRINT 

1730 PRINT OED AT SKRIUE ' LIST ' KPN DU S 
E HUILKE 

1710 PRINT "TRAEK DU HAR LAUET: UOEN AT A 
FBRYDE 

1750 PRINT~SPILLET. 
17S5 PRINT G CNJ 

1760 PRINT C24SPCJGOD FORN0JELSE" 
1770 PRINT C3CN3C 12SPC3TRYK EN TASTE" 
1788 GET TA*:IF TA* = THEN1780 
1730 RETURN 

1808 REN -=* BRUNNEN *=- 

1805 P0KE5429G.15:P0KE54277.45:POKES4278 
. 1 65 

^810 P0KE51276.33: P0KE54273 . 6: P0KE54272 . 

1820 FOR A=ITO200: NEXT: POKE54276 ,32: POKE 
54273, 8:P0KE54272.8:GOT0 878 
1830 REN -=x KLOKKE *=- 

! 810 P0KE51236 .15: P0KES1277 .0: P0KE51278 , 
217 

1858 PDKE51276. 17: P0KE54273 ,10: P0KE54272 
.0 

I860 FOR A=1TOZ00:NEXT:POKE51276,16:R£TU 
RN 



KONTRULSUfl FOR SOLITAIRE 



1365 PRINT HC3SPC3HC 3SPC3UU UUC3SPC3RC3 


90 


149 


100 


L33 


1 10 


4 


SPC3RC 3SPC3RC3SPC3R[3SPC3flC3SPC]fl ' 


120 


166 


138 


32 


L40 


37 


1370 PRINT HHH HHHC 3SPC3UUUC 3SPC3RRR PRR 


150 


146 


1 60 


172 


170 


143 


RRR RRR AAA AAA 


180 


143 


320 


1 1 


325 


94 


1388 PRINT C5CN3C 12SPC30U KLAREDE DET \ ' 


326 


157 


327 


94 


330 


152 


1398 PRINT'T5CNH3SPC]yiL OU HAUE L0SNTN 


310 


13 


358 


167 


355 


35 


GEN SKREUET UDT 


418 


178 


110 


17 


460 


12 


1480 INPUT fWHTj :L0* 


478 


172 


500 


162 


538 


157 


1110 IF LB* = J OR JA THEN 1500 


550 


130 


560 


138 


570 


27 


1420 CLS; PR INT '[ WHT ] : RUN 


610 


133 


620 


221 


625 


92 


1500 REN -=x L0SNING *=- 


630 


37 


610 


51 


658 


9 


1505 PRINT CHOn3E3CN) :5=0 


660 


247 


675 


49 


680 


17 


1510 FOR P =0 TO 0 STEP2 


685 


103 


687 


17 


690 


248 


1515 IF Ptl)10 THEN S=l 


7G0 


212 


760 


41 


790 


130 


1520 PRINT TABC21-S3P + 1; CCUJ3 ;TR*CFK 


800 


130 


815 


97 


820 


9 


1522 IF Pt2> = 10 THEN 5 = 1 


860 


113 


870 


86 


890 


94 


1525 PRINT TABC31-S3P+2; • CCU] 3 ;TR*CPtl 


900 


62 


910 


28 


91 1 


56 


3 


912 


197 


9 20 


234 


930 


8 


1530 NEXT 


910 


132 


950 


138 


1 1 10 


213 


1535 RETURN 


It 20 


249 


1 130 


248 


1 140 


1 13 


1600 REH - = » INSTRUKT JON *=- 


I 1 50 


156 


1 170 


1 10 


1 180 


1 13 


1610 P0KE214.22:PDKE211 ,Q: SYS5961B 


1200 


143 


1230 


37 


1240 


134 


1615 PRINT C 40SPC3' 


I 250 


45 


1255 


62 


1260 


53 


16 17 P0KE214 .22:P0KE2l 1 ,0: SYS58640 


I 265 


78 


1270 


215 


1275 


71 


1620 INPUT UIL DU HAUE INSTRUKTION ; IN* 


1276 


182 


1 280 


72 


1 300 


25 


1630 IF 1N* = J OR IN*: JA' THEN GOTO 16 


1310 


46 


1328 


166 


1 330 


39 


50 


1318 


229 


1350 


136 


1360 


129 


1640 IF 1N»='N' OR IN*="NEJ' THEN RETURN 


1365 


235 


1378 


106 


1380 


123 


1645 GOTO 1618 


1390 


100 


1400 


169 


1410 


151 


1650 POKE214.22:POKE211 ,0:SYS586ia 


1420 


194 


1500 


146 


1505 


146 


1653 PRINT E48SPC]" 


1510 


35 


1515 


5 


1520 


87 


1655 PRINT' DET GAE.LOER On. AT F J ERNE ALL 


1522 


184 


1525 


249 


1538 


130 


£ P1NDENE , 


1535 


142 


1600 


133 


1610 


34 


1660 PRINT UED AT HOPPE OOER DEN; EN AO 


1615 


253 


1617 


94 


1620 


19 


GANGEN. " 


1630 


46 


1640 


15? 


1 645 


1 13 


1670 PRINT OU FLYTTER EN PINO UEO AT SKR 


1650 


94 


1653 


253 


1655 


210 


1UE DENS ■ 


1660 


240 


1670 


208 


1675 


1B7 


1675 PRINT' KOORDINATER OG DENS NYE KOORD 


1680 


212 


1690 


151 


1 700 


255 


INATER. 


1718 


41 


1720 


72 


1725 


153 


1680 PRINT' ALLE FIRE TAL J NDTASTES UDEN 


1730 


175 


1740 


253 


1750 


10 




1755 


238 


1760 


175 


1770 


78 


1690 PRINT ELLER L I GENDE . " 


1788 


133 


1730 


142 


1 000 


I4l 


1708 PRINT C2CN] 


1805 


63 


1810 


153 


1B20 


6 


1710 PRINT ' DU KAN STOPPE . ELLER STARTE F 


1830 


56 


1840 


13 


1 850 


202 


ORFRA UED. 


I860 


235 
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Demo - Comal 80 skolen 

0010 por to 'RUN'S Comal -80 sknle. 
1985, prg- I 1 

OOeO U demo a< IF x*» THEM som 
tlerstrenget udsagn med ELTF, ELSE og 
END IF. 

0030 // samt af IF x*x THEN son 
enkeltstrenget udsagn 

0040 // demo a* CASE, WHEN, OTHERWISE Ofl 
ENDCASE strukturen 

0050 // demo af LOOP, EXIT UJHEN og 
ENDLOOP 

0060 // der er brugt felgende uariableri 

bl til b5, tl til t5, si ttl .4 

0070 // tekst*, ualg*typeN< refererer til 

hinanden), uagt/gram (rat. til hinanden) 

0080 og por to 

0090 // 

0100 bl :=2.0r b2i*3.8; b3i»6; h4r»10/ 
b5:=13 /✓ brevtakster 

oiiotu«2.5/ tsi-3.5; t3»=3.S; t4i=g; 

t5i-12 // takster for tryksager 

oiao sit=3,5; set-s.si 53:09; $-4**12 // 

takster for smipakker 
0130 // 

0140 PROC pause CLOSED 

0130 PRINT AT 2fl,li ■ M8"*ar 

f ortsattel s« , tryk en tast ■ 

0160 WILE KEY«oCHRS< 0 ) 00 NULL 

0I7O ENDPROC pause 

0190 // 

0190 PROC f «i I 

0200 PAGE 

0210 PRINT AT 10, U "Kan ikke sendes 
som ", tekst*,", da* 
0220 PR INT "vegt ikke er inden-for 
till adte gr anser . ■ 



0430 FUND udr egnC type* .gr am) 

0440 por to: =0 

0450 IF type#«l THEN 

04E0 IF grantf^O THEN port 0 :«bl 

0470 IF gram:=PO AID gram<!00 THEN 

POr to! *b2 

0400 |F gram>*IOD AW gram<250 THEN 

per to i «b.3 

0490 IF 9< am>=250 Ar/1 gram<500 THEN 

por to I =b4 

05O0 TF g*an»:=500 AND gramCMOOO 

THEN portoi*b5 

0510 EL I F t V peH»? THEN 

0520 IF gran* 20 THEN portoi«tl 

0530 IF gram>=20 AND gr aro< 100 THEN 

Por to i =t2 

0540 IF gram>=IOO AND gram<230 THEN 

porto : «t3 

0550 IF 9ram>=£50 AND grarrr-'SOO THEN 

por to : = t4 

056O IF gram>*50n AMD gramC=1000 

THEN porto i «t!5 
0570 ELSE 

0580 IF gram< 100 THEN porto* -s i 

0590 IF gr*m>=lOO AND 9r4m<250 THEN 

por to r =s2 

0600 IF flram>»230 AND 9r*ntf500 THEN 

por to r "S3 

OG10 IF gram>=300 AND gram<=1000 

THEN por toe =54 

063O END IF 

0630 RETURN porto 

064O ENOFUNC udregn 

0650 // 

0660 LOOP 



0230 


END "Tryk "I8"*7"146- 


for fortsat 


0670 


PAGE 


brug 






0680 


PRINT TABf 12>,""l8'beregning at 


0240 


ENDPROC Tejl 




porto * 


0250 


// 




0690 


PRINT AT 4,12! -0 stop brug a* 


0260 


PROC vent 




progir am" 


0270 


INPUT AT 16,1. It "MS 


'tast tal 


0700 


PRINT AT 6,12! "| breuporto" 


for valga M46" "i ualgR 




0710 


PRINT AT 8,121 -3 tpykitger" 


0280 


CASE valgtt OF 




0720 


PRINT AT 10,12! "3 smapakker • 


0290 


WHEN 0 




0730 


went 


0300 


PAGE 




0740 


EXIT WHEN valgN=0 


0310 


Ere ■■ 




0750 


PRINT AT 18, It "jeg arbejder nu 


032O 


UWEN 1 




mad " , 


tekst* 


0330 


tekst*is"breve" 




0760 


INPUT AT 20,1! "Me-indtast wag 


0340 


LWEN 2 




i gr am 


: "146- "i wagt 


0350 


tekstii^tryksager • 




0770 


JF uagt<=0 OR uagtMOOO THEN fe 


0360 


UHEN 3 




0780 


PRINT AT 22 , 20 1 'porto er 


0370 


tekst*: *"smapakker ■ 




0790 


PRINT USING ""18" kr. H*,**-t 


0380 


OTHERWISE 




udregn < ualgtt,uagt> 


0390 


went 




0800 


paus e 


0400 


ENDCASE 




0810 ENDLOOP 


04 10 


ENDPROC went 




0020 * 





Input/output listninger 



LISTNING 1 



PROGRAM- 2 



100 0PF.N3,8 1 3,'PR0e.SEQ,5,W' 

110 0PEN2.8.2."PR0G.P.R- 

120 GOSUB150 

130 PRIHTo3.A«; :GOTO120 

MB CL0SE2=CLQSE3:END 

150 GEr«2.At: IFA* = " THENA4 =CHRtC0 J 

160 IFSTTHENPRINT«3.fl*i I6OTOI40 

1?0 RETURN 



100 OPENl .8.1 ."PROG. PRG.P.U" 

110 0PEN2.8.2.-PR0G.SEQ.S.R 

128 GOSUBI50 

130 PRINTbI ,f\t: :GOTO120 

148 CLOSE l:CL0SE2: END 

150 GET«2.Ai: IFrt* = " ,- THENfl*=CHR*CB) 

160 IFSTTHENPRINTol ,fli;:G0T014B 

1?0 RETURN 
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HERDING 



i 08 IFPEEKr49l52 3O32THENGOSUB230 

118 PRINT DETTE ER HOUEOL0KKA I PROGRAM 

ET.~ 

120 PRINT DEN UENTER PAA INPUT FRA TASTA 
TURET. 

130 PRINT"HUIS OET IKKE KOIWER NOEN INPU 
T I L0P6T * 

110 PRINT P.U Tl SEKUNDER UIL HOOEOHENYEN 
UISE S£G " . 
150 PRINT'PAA SKJERHEN.CCN3 * 
160 GQSU8 1 70: GOTO 1 1 0 
170 \\\ 000000' 
180 GETA*:1FA*<> "THEN RETURN 
1 90 IFT I * > " 000009 " THEN2 1 0 
200 G0T018O 

210 A=PEEKC53280 D: B=PEEKC53281 ):C=PEEKC6 
46 J: SYS491 52: PRINT '[ CIR 3 

220 P0KE5328B ,A: P3KE53281 . B: P0KE816 ,C: RE 
TURN 

230 P = 19152: 1=0: J =0 

210 FORK =0 TO 15: READBs IFB=- ITHENGOSUB260: 
RETURN 

250 POKEA+I .8: I = It 1 : J =J tB: NEXT; GOSUB260: 
GOTO210 

268 REftDflS: IFRSOJTHENPRINT FE1L I DATflS 
ETNING : "PEEK(63 )+PEEKt6l )*256:END 
270 J ^0: RE TURN 

280 DATA32 ,1 , 132 ,36 . 1 62 .0 . 142 .32 .208,142 

.33.208.169.208.157.0. 1785 

230 DATA4 . 157 .250.1 .! 57 ,24 4 .5 . 1 57 .238 .6 . 

138,157,0,216,157,250, 2J4B 

300 DATft216.157.244 .217.157.238.218.232, 

224 ,250 .208 .224 , 162 .0 . 183,60, 2996 

310 DATA 192. 32. 2 10. 255. 232 .224,105.208.2 

45,76.165.192.19.5.17.17. 2194 



320 DATP-1 7, 17.17,17.17.17.17.17,17.29.29 
.29,29,29,29.29. 356 

330 DATP.29.32.68.e9.61 .81 .69 ,32 .69 .82 .32 
.69,78.32,70.79. 978 

340 DATA82 .83 . 73 .68 .69 .32 . 1 3 , 1 7 .29 ,29 .29 
.29,29.29,29,29. 669 

350 DATA32 ,83 .79. 77 .32 .68 .95 .75 .75 .69 .82 
.32.79,80.80.32, 1 060 

360 DATp.72. 86, 73, S3 ,32, 13, 17.29, 29, 29, 23 
.29,29,29,29.32. 610 

370 DAT|=l77,65.83,75.73 1 78,6a,78,32,73.75 
.75.69.32.66.82. 1102 

?§88°f if 8 ! ■ ?§4 e g ' 8 ?s33 * 162 ,0 k 1 83 • 0 - ZB1 

390 DA TA2 16. 189. 250.4 .201 .208.208.3.222, 

250.216.189.244.5.201.208. 2814 

400 PATP.20a.3.254.244.2l7.l83.238,6,201 , 

209.288.3.222.238.218.32. 2689 

4 1 0 DATP.228 , 25 5 . 208 . 8 . 232 . 224 . 250 . 208 . 20 

6,76.165.132,96.-1. 2348 



KONTROLSUH FOR HEADING 



J 00 


53 


110 


168 


120 


162 


130 


49 


140 


117 


150 


103 


160 


122 


170 


215 


180 


45 


190 


164 


200 


34 


210 


181 


228 


240 


230 


227 


240 


228 


250 


114 


260 


323 


270 


244 


280 


217 


290 


216 


300 


69 


310 


113 


320 


150 


338 


188 


310 


173 


350 


211 


353 


151 


370 


223 


380 


223 


39B 


150 


400 


122 


410 


80 







PROGRAM 1 



100 A= 43152: l=0;j=0 

110 FORK =0TO 1 5 : READB : IFB=-1THENGOSUB130: 
END 

120 POKEA+I ,B:l=I+i:J=J+B:NEXT:GOSUB130: 
GOTO 110 

130 REPDAS: IFASOJTHENPRINT 'FEIL I DATP.S 
ETNING I PEEK C 63 )tPEEKC64 3*256: END 
140 J=0:RETURN 

150 DATA76. 6, 192.76.32.192.32,82.132.132 
.251,133.252.165,1,72, 1886 
160 DATA 120. 169, 48, 133,1 ,160,0,177,251 .1 
33,251 .104 .133.1 ,88 .96 , 1865 



170 DATA32 ,82 .132.133.252. 132 .251 .32,82. 

192.133.254.132.253.32.91. 2275 

180 DATA192.152.178,160 .0 . 165 . 1 ,72 . 120, 1 

69.48.133. 1 ,168.0, 1?7. 1720 

190 DATA251 .145.253.208.208.249.230.252. 

230.254.202,208.242.104.133.1 . 3162 

200 DATA88 .36 .32 . 253 , 174 ,32 , 138 . 1 73 .76 , 2 

47.183.32,82,192,201.0. 1939 

210 DATA208.1 .96.162.14.76,55.164.-1. 77 

6 



KONTROLSUM FOR PROGRAP1 4 

100 227 118 210 120 106 

130 129 140 244 150 230 

160 7 170 152 180 135 

190 71 200 11 210 219 



PROGRAN 5 



108 P0KE56 . 32: PDKE55 ,0: P0KE52 ,32: POKE5 1 . 
0:CLR 

110 SKJERN = 8192:X=100:Y=100 

120 P0KE53265,PEEKC53265 3OR32:REn H0YOPP 

L0SELIG SKJERI1 

130 P0KE53272,PEEKC53272 3OR8:REn LEGG SK 
JERP1 I 8192 



110 GOSUB310:REP1 SETT FARGE PAA H0YOPPL0 
SELIG SKJERd 

150 REN GOSUB510:REn CLEAR H0YOPPL0SEL IG 
SKJERN 

160 POKE2010.13: FOR I =0TQ62: READP«: P0KE61* 
13tI,A:NEXT 

170 FORI=0TO2l:READA:POKE49l52*I . A: NEXT: 
SYS49152:REnriASKINK00E FOR BLANK SKJERn 
180 GOSUB410=POKE53249 ,Y+30: P0KE53287 . 6: 
P0KE53269 ,1 

190 GETA*: IFP.i=-' "THEN 190 

200 I F A* = ' C CH J " P<NDX <3 L 9THENX =X+ 1 : GOSUB4 1 
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0:GOTO130 

210 IFA* = "C CO J "8NDX>0THENX=X-1 : G0SUB4 1 0: 
GOTO130 

220 IFA* = -[ CN j 'ANDY <1 99THENY=Y+ 1 : POKES32 
49.Y+30:GDTO190 

230 IFA* = •[COr"flNDY>BTHENY=Y-l:P0KE53243 
.Y+30: GOTO190 

210 IFfl*="S"ORA*="C"THeNGOSUB330 
250 IFAi = X THEN270 
260 GOTO l 30 

270 P0KE53265 .PEEKC S3265 3ANDC 255-32 ): REPl 

UftNLIG flODE 
280 P0KE53272 .PEEKC 53272 JANDC255-8 ): REfl 
UANIIG flODE 
290 P0KE53269.B 
300 END 

310 PR INT " t HOfl r " ; : F OR I -0TO998 : PRINT "L" ( ; 

NEXT; POKE 1 023+339, 1 2: RETURN 

320 FORI=0TO7999:POKESKJERn+I .0: NEXT: RET 

URN 

330 RAD = INT( Y/8 J 
310 KAR=INTCX/8) 
350 LINJE=YAND7 
360 BIT=7-CXAND7) 

370 BYTE=SKJERM+RAD*320+KAR*S+UNJE 

390 IFAt='t'THENPOKEBYT£ .PEEK C BYTE 3ANDC2 

55- 2TBIT): RETURN 

390 POKEBYTE .PEEKCBYTE 30R2+BIT 
100 RETURN 

410 PY=Y-»30:PX=X-f25: IFPX>255THENPX=PX-25 
5:POKE53264 , t 



420 POKE53248.PX:IFX<231THENP0KE53264 ,0 
430 RETURN 
440 REM SPRITE 

450 DATA 0.0,0,0,0,0.0,0,0,0,0,0,0,0 
460 DATA 0.0.0.0,0.0.0,0.0,0.0.64.0.0 
470 DATA 64.0,0,192,0,0,248.0,1 .224.0,3. 

^SS'SflTA 7.0.0. 142 .0.0.220.0,0.248 .0.0.2 
40.0.0.248.0.0.252,0.0 

490 DATA 163.32,133.252,169,0.133.251.16 
9.162.32.145.251 .200.208.251 
500 DAT* 230.252,202.208.246,96 



KONTROLSUH FOR PROGRAM 5 



100 


92 


1 10 


61 


120 


122 


130 


21 


140 


125 


150 


38 


160 


72 


170 


174 


180 


255 


190 


103 


200 


247 


210 


9 


220 


2 


230 


14 


240 


81 


250 


126 


260 


35 


270 


123 


280 


74 


230 


252 


300 


128 


310 


253 


320 


162 


330 


205 


340 


211 


350 


93 


36B 


2 


370 


252 


380 


220 


390 


173 


400 


142 


410 


154 


420 


117 


430 


142 


440 


198 


450 


127 


460 


185 


478 


106 


480 


128 


490 


254 


500 


230 







Musikk.MC 



100 A = 49152: 1=0: J=0 

110 FORK=0TO15:READB: IFB=-1THENGQSUB130: 
END 

120 POKEfl+I ,B: 1=1 + 1 : J =J+Bs NEXT; BOSUB13B; 
GOTO 110 

130 READAS: JFASOJTHENPRINT'TEIL I DAT PS 
ETNING : "PEEKC63 D+PEEKC64 3*256: END 
140 J=0:R£TURN 

150 DATA76. 220. 192.76.208 .193,33.33 ,17 .6 
,1 .0.0,0,0.240. 1295 

1 60 DATA85 . 1 33 , 1 0 . 1 97 . 232 . 1 93 . 232 . 1 93 . 23 

2.133.0.0.0.28.45.62. 1835 

170 DATA81 .102.123.145 ,169.195.221,250,2 

4.56.90.125.163.204.246.35. 2229 

180 DATA83. 134 .187.244 .48 . 1 12 . 180 .251 ,71 

.152,237.71,167.12.119,233. 2301 

190 DATA97 .225 , 1 04 . 247 . 143 .48 .218 , 143 .78 

.24 .239,210.195, 195 ,203.239. 2614 

200 DATA31 ,95.181 .30 . 156 .49 .223 , 165 . 135 . 

134,162.223.62,193,107,60. 2007 

210 DATA57.93. 190,75. 15. 12.69, 191 .125. 13 

1.214.121.115.199.124.146. 1883 

220 DATA30. 24. 139. 126, 250. 6. 172 ,243, 230, 

143,248.46.0, 1 .1,1. 1660 

230 DATA1.1.1 .1,1,1,1,1,2.2,2,2,2,2,2.3, 

25 

240 001*3.3,3,3,4.4.4,4.5,5.5.6.6.7,7.7. 

76 

250 DATA8. 8. 3. 3, 10. 11.11 .12.13.14.14.15. 
16.17.18,19, 204 

260 DATA21.2Z.23,25.26.28.Z3,31.33.35.37 
.39.42.44.47.50, 532 

270 DATA53 , S3 , 59 , 63 , 67 , 7 1 . 75 . 73 , 84 . 83 . 34 
. 100. 106.1 12. 1 19 .126 . J 353 
280 DATA131, 142. 150. 153. 168. 173. 183. 200. 
212. 225 . 238 . 253 . 32 . 208 . 1 93 . 1 69 . 285 1 
290 DATA15.141.24.21Z.173.14.132.141.5.2 
12,173.15.192.141,6.212, 1868 
300 DATA173. 16,132. 141 .12.212.173.17.132 
.141.13.212.173.10,192.141. 2018 



310 DATA19.212.173.13.192.l4l .20.212.169 
.0.141.26.192.141.27.192. 1876 
320 DPITA32. 177. 193.120.169.32.141 .20.3 1 
69.193.141.21.3.89.96. 1598 
330 DATA173. 10. 192.208.3.76.49.23-1.206.2 
6.192.208.246.173.9.192. 2199 
340 DATA 1 4 1 .26. 192. 172. 27. 192. 177. 166. 4B 
.105.240.4.56.237.11 .192. 1986 
350 DATA170. 189.28.192.141 .0.212.189.124 
.192.141.1.212.177.168.240. 2376 
360 DATA4 .56 . 237 . 1 2 . 1 32 . 1 70 . 189 .28 . 192 , 1 
41.7.212.189.124.192.141. 2086 
370 0ATA8. 212. 177. 170. 240. 4. 56. 237. 13. 19 
2.170.189.28.192.141.14. 2043 
380 DATA2 12. 189.124 .192.141 . 15.212.208,1 
40.27. 192 ,208,6.230. 167.230. 2485 
390 DATA169.230.171 . 169 .0 , 14 1 ,4 ,212 , 141 , 
11.212.141.18.212.173.6. 2010 
400 DATA! 92.141 ,4,212, 173,7, 1 92, 141 ,11 ,2 
12.173.8.192.141.18.212. 2029 
410 DATA76.49. 234, 163, 0,1 41 ,27,132,141 .2 
6.192.32.177,193.76,49. 1774 
420 DATA234. 173. 20. 192. 133.166.173.21 . 19 
2.133. 1 6? , 1 73 . 22 , 1 92 . 1 33 , 1 68 . 2292 
430 DATA 173 .23 . 132 . 133 . 169 . 1 73 ,24 . 132 , 13 
3.170. 173 .25,192.133.171 .96. 2172 
440 DATA120.169.234.I41 .21 .3.163.49.141 . 
20 .3 .88 . 1 69 .0 . 170 . 1 57 . 1654 
450 DATA8 .2 12 ,232 ,224 . Z5 . 208 .248 .96 .-1 . 
1245 



K0NTR0LSUI1 FOR MUSIKK.fIC 



100 


227 


110 


210 


120 


106 


130 


129 


140 


244 


150 


182 


180 


161 


170 


207 


180 


287 


130 


31 


200 


156 


210 


178 


220 


39 


230 


227 


240 


28 


250 


153 


260 


115 


270 


196 


280 


172 


290 


43 


300 


190 


310 


107 


320 


238 


330 


84 


340 


129 


350 


213 


360 


122 


370 


60 


3B0 


245 


390 


21 


400 


41 


410 


41 


420 


56 


430 


U 


440 


216 


450 


91 
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Musikk.komp + Demo 

100 PRINTS CLRJAUSIKK-KONPILATOR CC3 RUM 
1985.CCN3" 

1 10 P0KE56 . 128; P0KE55 .0! P0KE52 . 128: P0KE5 
1 .0:CLR 

120 REM SET ATTACK/DECAYz-SUSTAIN/flELEASE 
130 ATTACK C 1 3=0:DECAYtl 3=0: SUSTAINC 1 >1 5 
: RELEASE C I 3=G 

110 ATTACKC 2 3-5: DECAYC2 1=5: SUSTAINC2 3=8: 
RELEASE(2 3=5 

150 ATTACKC3 3=0:DECAYC3 3=10:SUSTAINC3 3=l 

2: RELEASEC3 3=5 

150 REP1 SET UAUEFORN 

170 UOICECl 3=33:UOICEC23=33:U01CE(3 3=17 
180 REM HUOR OFTE SKAL NY TONE SPILLES 
190 KLOKKE = 6 
200 G0SUB523 

210 PRINT'[GRN3CS/U3C25S/C3[S/I3-' 

220 PRINT "C S/8 31 25SPC3C S/B3 " 

230 PRINT'C S/J ][ 2SS/C3C S/K1C CO 3C LTBLU3 " 

2-10 FQRI=0TQ2:REAOUQ*CI ^NEXT 

250 JFUOiCQ 3= END "THEN330 

260 FOR[=0TQ2:nCI 3=ASCtRIGHT*( VO* C I 3 , 1 J 3 

-48: NEXT 

270 FORI-0TO2: I FPU J 3=3THENPOKEU( 1 3+TE.0: 
NEXT:GOTO310 

280 Tl=0:FORJ=0TOll; IFNSCHC I ).J ]=UOUI 3T 
HENT1=J:J=12 

230 NEXTJrPOKEOCI 3tTE.(im*l2i-Tl 
308 NEXT I 

310 TE^TEtl : PR I NT "CC03CCH3";TE*3; " NCITER 

ER LEST INN. " 
320 GOTO240 

330 FORI=0TO2: POKEUC I 3+TE.0:NE*T: TE=TEt J 
340 FORI =0TO2: POKEUt I 3+TE . 128: NEXT 
350 PRINT ■'LC03CCH3CUHT1UENT ET 8YEBL IKK I 
[8SPC3 :DT=0:FORI =0TO2 

360 AH=INTCCDE*DT 3/256 ): AL =DE+DT- AH*256: 

POKEFR+ 1 *2+20 . AL i POKEPR* I *2+2 1 .AH 

320 FORJ=0TOTE:POKEDE+DT,PEEKCUCI 3+J 3:DT 

=OT+l 

380 NEXT J. I 

330 PRINT "E UHT3E 2CN3SKAL MELODIEN LAGRES 

? -C J/NJCLTBLU3" 

400 GOSUB490: I FZ* ="N "THENEND 

4.10 I NPUT " L CN ] HEL OD I ENS NAUN";FI* 

420 FIt=LEFTt(FI*,163f,P,W 

430 OPEN15.8.15 

440 OPEN I .8.1 .Fit 

450 INPUTnl5.A.At.S.D: IFAC20THEN470 

460 CLOSE 1 = CLOSEI 5: PRINTA .A* .S ,D: GOTO330 

470 PRINT»1 ,CHR*E03; :PR1NT«1 .CHRVC 132 3; 

480 FORI=PRTOOT+PE:PRINT»1 .CHRtCPEEKCI 3 3 

; : NEXT : CLOSEI : CLOSE 1 5: END 

430 POKE198.0 

500 GET2i: IFZi=""THEN503 

510 RETURN 

520 DinntC7.it 3.Dtct i ) 

530 FORJ=0TOlt:READOtCJ 3:NEXTJ 

540 FORI=0TO7:FORJ=0TOll:N*CI ,J3=0ttJ)+R 

IGHTtCSTRtC 1 3 .LENCSTRtC I 3 3-1 3: NEXTJ . I 

550 DATAC.*C.D.»D,E,F 

560 DATA»F .G.oG,A.«A.B 

570 UC0 3=32768: UC1 3=UC0 3+1024: UC 2 3=0C1 3+ 
1024: TE=0 

580 PR=43152:PE=PR+512 

530 FORl=0TO2:POKEPR+6+I .UOICEU + 1 3: NEXT 
600 FORI=0TO2 

610 P0KEPRi-l4*Ix2. ATTACKC I tl 3* 16+OECAYt I 

620 P0KEPR+15+I <;.=>USTA1NC 1*1 3M6tRELEAS 
EC 1*13 

630 NEXT: POKEPR+3 .KLOKKE: RETURN 

10000 REnx«*«« TAKT 1 XMXMUXM" 
10010 DATAC5.E4.C4.C5.E4.C4.C5.G4.9.9.E4 

.8 



10020 DATAC5.E4.C4 .C5.E4 ,C4 .C5.G4 .9.3.E4 
.3 

10030 REH******" TAKT 2 xxxxxxxxxxxxx 
10040 DATAC5.E4.C4.C5.E4 ,C4 .C5.G4 .9.3.E4 

10050 DATACS.E4 .C4 .C5.E4 ,E4 ,*C5.F4 .Cfl."C 

5. F4.C4 

10060 REH**"**** TAKT 3 xxxxxxxxxxxxx 
10070 DATAKC5.F4 ,C4 ."C5.F4 .C4 . »C5 .»G4 .9. 
9 ,F4 .9 

1 0080 DATA»C5 .F4 ,C4 . »C5 . F4 . C4 . »C5 . «G4 .3 . 
9 .F4.3 

10830 REn«"*«x TAKT 4 xxxxxxxxxxxxx 
10100 DATABC5 . »G4 ,C4 „ «C5 . *"G4 ,C4 ,<*A4 .3.C4 
.G4.3.C4 

10110 DATA»D5 . »A4 . C4 . »D5 , « A4 . C4 .«C5 . *G4 . 
M.«C5 ( «S4,C1 

10120 R£?\xxxxxxxx TAKT 5 xxxxxxxxxxxxx 
1B130 DATAC5.E4.C4.C5.E4.C4.C5.C34 .9.9.E4 

10140 PATAC5 ,E4 ,C4 .C5 ,E4 ,C4 .C5 ,G4 .9 .9 .E4 

10150 REfl"****" TAKT 6 xxxxxxxxxxxxx 
10160 DATAC5.E4 ,C4 .C5.E4 .C4.C5 .G4 .9.9.E4 
.3 

10170 DATAC5.E4 .C4 .C5.E4 ,E4 ,»C5.F4 ,C4 .»C 
5 ,F4 .C4 

10180 REn*xx****x TAKT 7 xxxxxxxxxxxxx 
10190 PPTA«C5 , F4 f C4 ,»C5 ,F4 ,C4 , «C5 , «G4 .9 . 
9 .F4 .3 

1 020B DATA«C5 ,F4 ,C4 ,»C5 ,F4 . C4 . »C5 ,»G4 f 9 . 

9 .F4 .9 

10210 REftxxxxxxxx TAKT 8 xxxxxxxxxxxxx 
10220 DATA»C5.pG4 ,C4 , *C5 . »G4 ,C4 ,oA4 .9 ,C4 
.G4.9.C4 

10230 DATA**05 , «A4 ,C4 . *D5 .bA4 .C4 . »C5 ,»G4 . 
C4.bC5.bG4.C4 

10240 REtfxxxxxxxx TAKT 3 xxxxxxxxxxxxx 
10250 DATAC5.E4.C4.C5.E4.C4,C6.G5.3.E5,3 
.9 

10268 DHTAC6.E5.C4.C6.E5.Cfl.C6.G4 .3.E5.3 
.9 

10270 REn***x*xxx TAKT 10 xxxxxxx xxxxx 
1 0280 0RTAC6 ,E5 ,C4 ,C6 .E5 ,C4 ,C6 ,G5 .3 ,E5 .3 
.9 

10290 DATAC6 ,E5 ,C4 ,C6 .E5 .C4 ."C6 .F5.C4.nC 

6. F5.C4 

10308 REftxxxxxxxx TAKT 11 xxxxxxxxxxxx 
10310 DPTAkC6.F5.C4.»C6.F5.C4,iiC6.«G5.3. 
F5.9.9 

1 0320 0ATAOC6 . F5 ,C4 . *C6 .F5 ,C4 . nC6 ,«G5 .3 . 

F5.3 .9 

10330 REn*xx*XXM TAKT 12 xxxxxxxxxx x% 
1 034 0 DATA0C6 . F5 , C4 . »C6 .F5 ,C4 . ««A5 ,9 , C4 ,G 
5.9.C4 

10350 DATfi»D6,G5.C4.»D6 .G5.C4 ,»C6.F5.C4 . 
pC6.F5.C4 

10360 REtfxxxxxxxx TAKT 13 xxxxxxxxxx*x 
1 0370 DATAC6 .£4 .C4 ,C6 ,E4 ( C4 ,C6 .G5 .9 .E5 . 9 
.9 

1 0380 DATAC6.E5.C4 .C6 .ES ,C4 .C6 .G4 .9 . E5 . 9 

'.9 

10390 REftxxxxxxxx TAKT 14 xxxxxxxxxx xx 
1 040 0 DAT AC6 . E5 . C4 . C6 . E 5 . C4 . C6 . G5 . 9 . E5 . 9 

.9 

10410 DATAC6.E5.C4 .C6.E5.C4 . »C6 ,F5 ,C4 . »C 
6.F5.C4 

10420 REnx******* TAKT 15 xxxxxxxxxxxx 
10430 DATA»C6.F5.C4 . »C6 ,F5 .C4 .»C6.«G5.9 . 

10440 DATA«C6 ,F5 .C4 . «C6 .F5 .C4 .*C6 .nG5 .9 . 

F5.9.9 

10450 REn*«*«« TAKT 16 xxxxxxxxxxxxx 
10468 DATA*C6.F5.C4.«C6.F5.C4 .«A5.9.C4,G 

5.9.C4 

•0470 DATA*D6.35.C4.oD6.G5.C4 .»C6.F5.C4. 
"C6.FS.C4 

10480 REtfxxxxxxxx TAKT 17 xxxxxxxxxxxx 
10490 OATAC6 ,E4 .C4 ,C6 ,E4 .C4 ,E5 .C5 .G4 ,E5 . 
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G5.G4 

10500 DATAC5 ,G4 . C4 . C5 .G4 .C4 ,E5 .C5 .64 .E5 i 
C5.G4 

10510 REflxxxxxxxx TAKT 19 >»x>x»x»i 
10520 DATACS ,G4 . C4 . C5 ,G4 ,C4 .E5 ,C5 .G4 .E5 . 
C5.G4 

10530 DATAG5 .C5 , C4 , G5 .C5 ,C4 ,*G5 „E5 . C5 . «G 
5.E5.CS 

10540 REflxxxxxxxx TAKT 19 xxxxxxxxxxxx 

10550 OATAC6.3.C4.C6.3.C4 .C6.F5.bC5 ,C6 ,F 
5.«C5 

10560 DATFC6.9.C4.C6.9.C4 ,C6 ,F5 .»C5 .C6 .F 
5.BC5 

10570 REflxxxxxxxx TAKT 20 xxxxxxxxx xxx 
1 0580 OAT AC6 , F5 , C4 . C6 . F5 . C4 , C6 . FS . « C5 . C6 
,F5.bC5 

10538 DATABft5.F5.C4 t *f\5 .FS .C4 ,C6 .«C5 .G4 . 
*A5 .BC5.G4 

10600 REnxxxxxxxx TAKT 21 xxxxxxxxxxxx 
10610 DATflG5.3,C4,G5,3.C4 ,G5 .E5 , C5 . G5 .E5 
,C5 

10620 DATRG5.9.C4.G5.9.C4 .G5 ,E5 .C5 ,G5 .£5 
.C5 

10630 REnxxxxxxxx TAKT 22 xxxxxxxxxxxx 

10640 DflTRG5.9 I C4,G5,3 > C4 l E5.C5,G4,E5,C3 

,G4 

10650 DATf»E5.3,C4.E5.3.C4 .F5.C5.G4 .F5.C5 
.64 

10660 REn*«*xxxx TAKT 23 xxxxxxxxxxxx 
10670 0ATF1G5.3.C4.G5.3.C4 .G5 ,»C5 ,«fl4 .G5 . 
«C5 ,"A4 

10680 DATAG5.9.C4.G5.3.C4 .G5 . «C5 . «A4 ,G5 . 
»C5 ,»A4 

10630 REnxxxxxxxx TAKT 24 xxxxxxxxxxxx 
10?00 DATA.G5.oA4 ,C4 ,F5 ,*A4 ,C4 , »D5 ,»A4 .G4 
.F5.Bfl4.G4 

1 07 1 0 DATA*D5 .3 , C4 . »C5 ,3 .C4 . pD5 . »C5 .84 . * 

C5. »C5 .G4 

107Z0 REnxxxxxxxx TAKT 25 xxxxxxxxxxxx 

10730 DATAC5.3.C4.C5.3.C4 , C5 .G4 . E4 . C5 . G4 
.E4 

107-40 DATAC5.3.C4 ,C5.3 .C4 ,C5 ,G4 ,E4 .C5.G4 
.E4 

10750 REnxxxxxxxx TAKT 26 xxxxxxxxxxxx 

10760 DfiTFlC5.9.C4.C5.9.C4,C5,G4.E4.C5 1 G4 
.E4 

10770 DATAG5.9.C4.G5.9.C4 .bG5.C5.G4 .«G5. 
C5.G4 

10780 RE?\*xxxxxxx TAKT 27 xxxxxxxxxxxx 

10730 DATAC6.9.F4.C6.9 .F4.C6.bD5.G4 .C6 .* 
D5.G4 

10800 DATAC6,9.F4.C6.9 .F4 .C6.bD5.G4 .C6 .b 
05. G4 

10810 REnxxxxxxxx TAKT 28 xxxxxxxxxxxx 
10820 OPTRC6.3.F4.C6.9 ,F4 .»A5.»05.G4.hF)5 
."D5.G4 

10830 DflTA*»G5.bC5.F4.G5.«ifl4.F4.F5.i»C5.G4 
.G5 .t»C5.G4 

10840 REnxxxxxxxx TAKT 29 xxxxxxxxxxxx 
1 0850 DATAbG5 . »D5 . bG3 . * A5 . bD5 , aG3 . sG5 . C5 
.F4.G5.CS.F4 

1 0860 DATAbGS .3 , bG3 .aG5 .3 . bG3 . «G5 ,C5 ,F4 . 
bGS ,C5 .F4 

10870 REnxxxxxxxx TAKT 30 xxxxxxxxxxxx 
10880 DATAnG5.C5 ,bG3.bG5.C5.bG3.»F5 .C5 ,b 
G4.*G5.C5.bG4 

10830 DATAG5 . 3 ,bQ4 .F5 .9 .«D4 .»D5 .B4 .F4 .F5 
.B4 .F4 

10900 REnxxxxxxxx TAKT 31 xxxxxxxxxxxx 
1 03 1 0 DAT RoF5 . uf\ 4 , bF3 . *G5 . *A4 . «F 3 . «F5 . »C 
5.Bfi4.F5.itC5.flA1 

10920 DATA»F5.bF4 . bF3 . "F5 ,»F4 . Bp 3 . -F5 . *C 
5,Bfl4.»F5.BC5.BA4 

10330 REnxxxxxxxx TAKT 32 xxxxxxxxxxxx 
10940 DPTFibF5.bC5.bF3.«F5,bC5.bF3.F5.bC5 
.Bfl4 .G5,bC5,*A4 

10350 DATAF5.9.C4.E5.3.C4.D5.Bfl4.E4 .E5.B 
A4.E4 

10360 REnxxxxxxxx TAKT 33 xxxxxxxxxxxx 



E5 3 C5 ^ TflC5,,,G ''' F3 - G5 '" G4 * F3 ' F5 ' C5 . ,t G4. 

18980 - DATAF5 ,F4 .F3 .F5 .F4 .F3.F5 .C5 . bG4 ,F5 
,C5.bG4 

10930 REnxxxxxxxx TAKT 34 xxxxxxxxxxxx 
11000 nATflG5.F4.F3.F5.F4 .F3 .F5 . C5 . bG4 .*D 
5,C5."G4 

11010 DATAbD5.9.bA3.bC5,9.bA3.«D5.bCS .G4 
,bC5.«C5.G4 

11020 REflxxxxxxxx TAKT 35 xxxxxxxxxxxx 
11630 DF.TfC5.E4 .C4 ,C5 .E4 .C4 .CS . G4 . 3 .3 ,E4 

.9 

11040 DATAC5.E4 ,C4 ,C5 ,E4 ,C4 .C5.G4 .3.3 .E4 

.9 

11050 REnxxxxxxxx TAKT 36 xxxxxxxxxxxx 
11 060 DATAC5 .£4 .C4 .C5 .E4 .C4 .C5 . G4 . 3 .3 ,E4 
.9 

11070 0ATAC5.E4 ,C4 .C5.E4.C4.bC5.F4 .C4 .»C 
5.F4 ,C4 

11080 REnxxxxxxxx TAKT 37 xxxxxxxxxxxx 
11090 0ATAbC5.F4 .C4 ."C5.F4 ,C4 ,*C5 , bG4 ,9, 
9.F4 .9 

1 1 100 DATAbC5,F4 ,C4 ,bC5,F4 ,C4 ,"C5, bQ<( ,3, 
9.F4.9 

11110 REflxxxxxxxx TAKT 38 xxxxxxxxxxxx 

I 1 120 DATFibC5.bG4 ,C4 ,»C5.bG4 ,C4 ,«A4 .3 ,C4 
,G4.3 f C4 

II 130 DATAbD5.G4.C4."D5.G4.C4.b-C5,F4.C4. 
«C5 f F4,C4 

11140 REMxxxxxxxx TAKT 39 xxxxxxxxxxxx 
11150 DPTF)C5,E4 ,C4 ,C5 .E4 ,C4 .C6 .G5 ,C4 .E5 . 
9.C4 

11 160 DfirflC6.E5.C4 .E6 ,E5 ,C4 . C6 . G5 .3 .E5 .3 
.3 

11170 REMxxxxkxxx TAKT 40 xxxxxxxxxxxx 
1 1180 DATAC6 ,E5 .C4 ,C6 ,E5 ,C4 .C6 ,G5 .9 ,E5 .9 
.9 

11 190 DATAC6.E5.C4 ,C6 .E5 ,C4 . bC6 ,F5 .C4.bC 
8.F5.C4 

11200 REMxxxxxxxx TAKT 41 xxxxxxxxxxxx 

11210 DATA«C6.F5.C4.*C6.F5.C4.*C6.tiG5.9. 
F5 .3.9 

11220 DATAbC6.FS.C4.bC6.F5,C4.«C6.*GS.9. 
F5 .3.9 

11230 REflxxxxxxxx TAKT 42 xxxxxxxxxxxx 
11240 DATA«C6.F5.C4.bC6.F5.C4.bC6.»G5.3. 
F5.9.9 

1 1 250 DAT A»A5 , E5 .C4 . bA5 . E5 ,C5 . »G5 . F5 . C4 . 
•G5.F5.C4 

11260 REnxxxxxxxx TAKT 43 xxxxxxxxxxxx 
1 1270 DAT ACS ,E5 ,C4 ,C6 ,E5 ,C4 . 3 .3 .9 .9 .3 ,9 
11280 DATAC6.E5.C4 ,C6 .E5 .C4 . 3 .3 .9 , 9 ,9 ,9 
11230 DATAEND .END .END 
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10120 202 
10150 203 
10180 201 
10210 205 
10210 206 
10270 201 
10300 205 
10330 206 
10360 207 
10390 209 
10120 209 
10450 210 
10180 211 
10510 212 
10510 213 
10570 205 
10600 206 
10630 207 
10660 208 
10690 203 
10720 210 



10330 78 
10160 78 
10130 221 
10220 58 
10250 81 
L0280 85 
10310 228 
10310 218 
10370 83 
10100 B5 
I 0430 228 
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10730 113 
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10750 21 1 
107B0 212 
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11050 212 
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11290 96 
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11210 228 
ll 270 115 
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11280 115 



Demo - begyndersiden 



10 REfl 

12 REH DEMO PROGRfiH TIL BEGYNDERSIDEN 

11 REfl 

16 REH DEflO PF FARUER UED HJtLP AF CHRi 
KODER 

IB REM 

20 REH 

22 PRlNT"tCLRJ"i iREH SLET SKCRH 

21 REH;= NCSTE PRINTSC THING SKftL SKRIUES 

I FORLENGELSE AF SLET SKCRH 
26 PRINTCHR$(5 3'HUIDC5SPC3CREU3C30SPC3CO 
FF3"' 

28 PRINTCHRSC28rR0DC6SPC3CREU3C30SPC3CO 

FFJ" 

30 PRINTCHR*C303 "GR0NC5SPC3CREU3C 30SPC3C 
OFF!" 

32 PRINTCHR*C3l J'"BL 3 C 6SPC3E REU3C 30SPC3C 0 

PFi" 

34 PRINTCHRIC 129 3"'ORANGEC 3SPC3C REUH 30SP 
C3COFF3 " 

36 PR I NTCHR4 C 1113" SORTC 5SPC ] C REU 3 C 30SPC 3 
[OFF]" 

38 PRINTCHRIC 119 J"BRUN[ 5SPC3C REU JC30SPC 3 
C OFF] " 

40 PRmTCHRtC15B3"LYSER8Dt2SPC3tREV]C3eS 
PC3C OFF3 " 

12 PRlNTCHR*C15l 3"GR3 U 5SPC3CREU3C 30SPC3 
t OFF3 " 

44 PRINTCHRSC152 3'GR32C5SPC3CREU3C30SPC3 
COFF3" 

46 PRINTCHR4C 153 3"LYSEGR0N C RE.U3C 30SPC3C 
OFF3" 

18 PRINTCHRtC 151 3"LYS£8L3E 2SPC3C REU3C 30S 
PC 3 C OFF 3 " 

50 PRINTCHRIC 1 55 3 " GR 3 3C 5SPC 3 C REU 3 C 30SPC 3 

C OFF 3" 

52 PRIHTCHRiC 156 3"UI0LETC 3SPC3C REU3C 30SP 
C3COFF3" 

51 PR I NTCHR4 CI 58 3 " GULC 6SPC 3 C REU 3 C 30SPC 3 C 

OFF 3" 

56 PRINTCHRIC 159 3"CVANC 5SPC3C REUJC 30SPC3 
L OFF 3 " 

58 GOSUB 201; REH TIDSFORSINKELSE 
60 P0KE532B1 ,0:REH SKIFT FARUE P3 SKCRH 
S3 BL I OGSJ KAN SES. 



62 GOSUB 201: REH TIDSFORSINKELSE 
64 POKE5328 1 ,6: REPI SKIFT FARUE P3 SKt RH 
TIL NORflAL 

66 : 

60 REH PEHO AF FPRUER UED HJCLP 

flF CTRL+COHHODORE TASTERNE 

70 ; 

72 PR1NT"C CLR3 " '• • REH SLET SKCRH 

74 REH ;=NCSTE PRINTSC TNING SKAL SKRIUES 

1 FORLC NGELSE AF SLET SKf RH 
76 PR I NT " C U1HT 1 HU I DC 5SPC 3 C REU J C 30SPC3C OFF 
3": REH CTRL+2 

78 PRINT"CRED]R0Dt65PC3t REUJC 30SPC3COFF3 

REH CTRL+3 
80 PRINT 'LGRN3GR0NC53PC3CREU3C 305PC3C OFF 
3": REH CTRL+6 

8 2 PR I NT " C BLU 3 BL 3 C 6SPC ] L REU 3 C 30SPC 3COFF3 
■'- REH CTRL+7 

84 PR INT" C ORG3 QRflNGEt 3SPC3C REU 3C 30SPC3C 0 

FF3 REN COHMODORE-M 

86 PRINT "C BLK3S0RTC5SPC 3C REU3C 30SPC3C OFF 

3": REM CTRL+1 

88 PRINT"CBRN3BRUNC5SPC3CREU3C38SPC3C0FF 

3": REH COHH0D0RE+2 

30 PRINT ,, CLTRED]LYSER0DC2SPC3CREU][30SPC 

3COFF3" : REH COflMOOORE+3 

32 PRINT"tGR13GR3lC5SPC3CREU3C30SPC3COFF 

3"! REM COHHODORE+1 

91 PRINT"CGR23GR32C5SPC3CREU3C30SPC;COFF 

3": REM COHHODORE+5 

96 PRINT"C LTGRN3LYSEGR0N [ REU 3 £ 30SPC 3C OF 

F3": REH COflMODORE+6 

98 PR INT "C LTBLU 3 LYSEBL 3 C 2SPC 3 1 REU 1 C 30SPC 

3COFF3": R EH COflMODDRE+7 

100 PRINT" CGR33GR33C 5SPC3C REU3C 30SPC3C OF 
F3"; REM COHHO130RE+8 

102 PRINT"tPUR3UIOLETC3SPC3CREU3C30SPC3C 
OFF3"; REH CTRL+5 

101 PRINT"EYEL3GULC6SPC3tREU3C30SPC3COFF 

j-i REH CTRL t8 

106 PR I NT - C CYN 3 C YANC 5SPC 3 E REU 3 C 38SPC 3 C OF 
F3": REM CTRLtl 

108 GOSUB201: REH TIDSFORSINKELSE 

110 P0KE5328I .0: REH SKIFT FARUE P3 SKCRH 

S3 SL 3 QGS3 KAN SES. 

112 : 

111 REM DEHO SKRIUE HED FLERE FARUER 

I SAHHE PRINTSC TNING 

1 16 : 

118 PR3NT"[CLR3"' 

120 PRINT "C CN3C UHT 3HUIDC CH3C RED3R0OC CH3C 
CYN3CYftNCCH3CPUR3UIOLETCCH3tGRN3GR0NCCH3 
[ BLU3BL3C CH3C YEL 3GUL " 

122 REM DET SAMHE HED FARUE BLOKKE 
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124 PRINT CCN3CREU3ruiHT]t4SPC3CCH3CR£D3C 
3SPC]tCH3tCYN3[4SFC3ECH]tPUR3r:6SPC3CCH3C 
GRNK 4SPC3C CH 3C BLU3C 3SPC3C CH3C YEL3C 3SPC 3 

126 REfl DET SAHHE PIED CHRi KODER 

L28 PRINTCHR4C5)-[CN3CREU3C4SPCJCCH3"CHR 
*C28 3"C 3SPC3CCH3"CHR4C159 3"C4SPC;UCH3 "CH 
R*C156J"CBSPC3CCH3"; 

130 PRINTCHR4(303"C4-SPC3CCH3"CHR4,C31 )"C3 
SPC3CCH3 'CHR4C158 3 '[ 3SPC3" 
132 : 

13 « REfl DEHO SKRIU BOGSTAUER 

I CHRi KODER 

136 ; 

138 GOSUB204 

140 PRINTCHR4C17); REI1 CURSOR NED 

142 PRINTCHR4C68 3CHR4C693CHR4C84 3CHR4C84 

)CHRiC69 3CHR4C32 JCHR4C69 3CHR4C82)? 

1 44 PRINTCHR4C32 1CHR4C69 DCHR4C78 JCHR4C32 

)CHR*C84 3CHR4C69 KHR4C83 3CHR4C84 3 

146 GOSUB 204 

148 PRlNTCHRiC14 ):REPI SKIFT TIL LOWER 

CASE 

150 GOSUB 204 

152 PRINTCHRU142):REH SKIFT TILBAGE TIL 

UPPER CASE 

1 54 GOSUB 204 

156 PRINTCHR4C 1 17 3CHR4C96 3CHR4C96 3CHR4C9 
6 3CHR4CI05 3 

1 58 PRINTCHR4C 98 3CHR4C32 3CHR4C 32 3CHR4C32 
3CHR4C98) 

1 60 PR I NTCHR4 C 1 06 3CHR4 C 96 3CHR4- C 96 3CHR4 C 9 
6 3CHR4C 187 3 
162 GOSUB 204 

164 PRlNTCHRt(14J:REJ1 SKIFT TIL LOWER 

CASE 

166 GOSUB 204 

168 PRINTCHR4C 142 3:REM SKIFT TILBAGE TIL 

UPPER CASE 

170 GOSUB 204 
172 : 

174 REM DEflO AF PRINT MED 

TA8 t SPC 

176 : 

178 PRINT"CCLRJ" 

180 INPUT"NAUN CMAX 13 TEGN 3: " ; NAUNi 

182 IF LENCNAUN4 )>13 THEN 180 

184 1NPUT"STILL1NG (MAX 13 TEGN 3: " ; STILL 

ING4 

186 IF LENCSTILLING4 3>13 THEN 184 

188 INPUT'TELEFON CMflX 11 TEGN ): " ; TLF4 

190 IF LENCTLF4 )> 1 1 THEN 188 



192 PR INT" C CLR3NAUN" TABC 14 VST ILL I NG" TAB 
(29 3"TELEFONC 2CN3'" 

194 PR1NTNAUN4; TABC 14 3: STILLI NG4 ; TABC 29 J 
:TLF4 

196 PRINT 'C2CN3NAUN* SPCC 1 0 1"ST ILL ING'SPC 
C7 3 "TELEFONC 2CN3 " 

1 98 PR JNTMAUM4 ; SPC C 1 0 3; STILLI NG4 ; SPCC 7 3; 
TLF-4 

200 GOSUB 204 

201 REM SUBROUTINE T I DSFORS I NKELSE 

202 END 

204 FORT UTO2080: NEXT T: RETURN 



KONTROLSUfl FOR DENQPROGRAfl 



10 


143 


12 


248 


14 


143 


16 


70 


18 


143 


28 


143 


22 


132 


24 


181 


26 


89 


28 


73 


30 


115 


32 


104 


34 


17 


36 


219 


38 


206 


48 


50 


42 


183 


44 


185 


46 


102 


48 


31 


50 


189 


52 


40 


54 


!59 


56 


195 


58 


229 


60 


77 


62 


229 


64 


289 


66 


58 


68 


27 


70 


58 


72 


196 


74 


181 


76 


236 


78 


191 


60 


245 


B2 


235 


84 


40 


86 


147 


88 


248 


90 


102 


92 


236 


94 


239 


96 


157 


98 


147 


100 


214 


102 


206 


104 


72 


106 


104 


108 


133 


1 10 


205 


112 


58 


114 


233 


1 16 


58 


118 


112 


120 


172 


122 


65 


124 


69 


126 


107 


128 


213 


130 


140 


132 


58 


134 


143 


136 


58 


138 


35 


140 


215 


142 


246 


144 


179 


146 


67 


148 


110 


150 


67 


152 


219 


154 


67 


156 


141 


158 


34 


160 


141 


162 


67 


164 


110 


166 


67 


168 


251 


170 


67 


172 


58 


174 


97 


176 


58 


178 


112 


180 


241 


182 


171 


184 


57 


186 


226 


188 


124 


190 


100 


192 


40 


194 


216 


196 


133 


198 


166 


200 


67 


201 


248 


202 


128 


204 


22 



Tlpsprogram - samlet listning 



10010 DinER4Cl40):OIHSR4C50 3:DiriGC13 3:DI 
nRIC13 3,RXC13 3,R2Cl3 3,J^C133,JA»C13 3 
10012 DiriA4-C133.B4C133.C4C 133.D4C 133.E4C 
133.F4U33 

10014 DIP1SE4C133.SA4C133 

10015 DinRE*C13 3.HE4C13 3.HA4C13 3;PRINT"i: 
L TGRN 3 " : P0KE5328 1.11: P0KE53283 . 1 1 
10040 5T4 = "C40S/Cr:KUx=l 

10060 PI 4 = "C7S/X3CC/R3[3S/-*3CC/1?3C3S/X3C 
C/R3I 3S/*3t C/R3C 3S/*3C CsRK 3S/-*3C C/R3C 3S 
3 1 C/-R 3 C 3S/x 3 C C/R 3 C 3S/* 3 C C/R 3 1 3S/* 3 C C/R 
Jt3S/*3CC/SJ" 

1 006 1 P24 = " C 7S/x J C S/+ 3C 3S/* 3 C S/+ 3 C 3Sx* 3C 
S/t3t3S^3CS/t3C3S/x3CSy+3t3S/*3CS/*:K3S 
/•*3CS/+3C3S/*3CS/'+3[3S/x3CSr+3t3S./*3CS/'* 
H3S/*3CC/W3" 



10062 P34 = "C7S/*3CC/E3C3S/x3C C/E3C 3S/*3C 
C/E3C3S/X3CC/E3E3S/J3CC/E3C3S/X3CC/E3C3S 
✓* 3 C C/E 3 C 3S/x 3 C C/E 3 C 3Sxx 3 [ C/E 3 1 3S/x 3 £ C/E 

3C3S/XJCCX3" 

10100 PRINT 'CCLR3":X = 12:Y = 10:GOSUB20000: 
PRINT CS/UJE. 15S/CHS/I3" 

101 30 X = 12:Y"U:GOSUB200e0;PRlNT"tS^BJC2 

spc3tipsprograi1c2spc3c s/b3 " 

10120 X=12;Y=12;"GOSUB2000B;PRINT"[S/J3C1 
5S/C3C SW'i FORX 1 =0TO8000: NEX T 
10200 : :PRINT"[CLR]":X=10: Y=2 : GOSUB2000B 
:PRINT"[REU3[3SPC3H 0 U E D fl E N UE 3SPC 
3 :U=0 

10220 X=09: Y=6: GOSUB20000: PRINT'' 1> INDT 
PSTNING" 

10230 X=09: Y=7: GOSUB20080: PRINT" 2> TILF 
CLDIGE RCKKER" 

10240 M=83: Y=8: GDSUB28000: PRINT" 3> REDU 
CEREDE" SYSTET1ER' 

10250 X=09: Y=3:GOSUB2000B: PRINT" 4> UDGA 
NGSRCKKE SYSTEHER" 
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102GB X=B9: Y=10:GOSUB20000:PRINT" 5> D1S 
K DIRECTORY" 

10270 Xt0g:Y=n:GOSUB20008:pRlNT" 6> PRI 
NTERUOSKRIFTER" 

10280 X=0a;Y=12iGOSUB2000a:PRlNT" 7> SKC 
RC1UDSKRI FTER'" 

10290 X=09:Y=13:GOSUB20800:PRINT" 8> LOA 
0 DIU FILER" 

10300 X=09: Y-14:GOSUB20000:PRINT" 9> SAU 
E DIU FILER" 

10310 X-03: Y=15:GDSUB20000:PRINT-' 0> AFS 
LUT PROGRAH ' : X=0: Y =20: GOSUB280B0: PRINTST 
t 

10330 XM0: Y=22:GOSUB20000:PRIHT"C REUJ I 

NDTAST VfiLG 0-9 " 

10310 GETQi: IFG*=" 'THEN10310 

10350 Qx=UALCQ*3: IFQ«=8THEN29000 

10370 OMQxGOTOl 1000 , 1 2000 .13000 , 11000 . 15 

000 . 1 6000 . 1 7000 , 1 S000 , 19000 

1 1000 ;; PRINT"! CLR] ": X-10; Y=3; BO5UB20000 

:PRINT"CREU1 INOTPSTN INGSHENU " 

11020 X=ll;Y=6:GOSUB20008:PRINT"l> ENKEL 

T Rl KKER " : X = 1 1 : Y =8: GOSUB28800 : PRINT *'2> SY 

STEMRCKKER" 

11040 X=ll: Y=10:GDSUB20000:pRINT"3> 13'N 
EREN":X=il:Y=12:GOSUB20000:PRINT-0> HOUE 

DMENUEN" 

1 1 1 18 X=0: Y-^20: GOSUB20000: PRlNTSTi:X=l 1 ; 
Y=22:GOSUB20000:PRINT"CREU3 INDTAST UALG 
0-3 " 

11130 GETQ*:1FQ*=""TMEN11130 

11140 Qx =UAL(Q* 3: rFQx=0TH£Nl0200 

11150 IFQx>3THENl 1 130 

11160 ONGxGOTO 11200,1 1308,1 1900 

U200 ::ER*=ERx+l 

11210 GOSUB28000 

11220 GETQQ4: IFQQ*=" "THEN1 1220 

11225 J F QQ * = " H " ORQQ* = " [ F 2 3 " THENER* =ERx- 1 

:GOTO10200 

1 1 230 IF QQ* -"I F 1 ] " ANDLEN CER* C ER» 5 3>0THEN 
GOSUB204 00 : GOTO 11220 

1 1 240 IFQQ4 <>" 1 " ANDQQ4 <> " 2 ' ANDQQ* <> " X " TH 
EH11220 

1 1250 GOSUB20200:GO5UB20300tGOSUB20000:P 
RINTQQS; ER*(ER* )=ER*( ER* )*QQ*s IFLENtE.RU 
ERx } )<>l 3THENGOTOU220 

U 270 IF ERX- 1 NT C ER*/1 0 3* 1 0=0THENKU* sKU*+ 
1 : ERx^ERx* t : GOTO 1 1210 
11280 ERx-ERx+i: GOTOl 1220 
11300 : 

11310 SRx=SRsc+i:FL=0:Ql = "":SR = l: IFU = 1THE 
NGEx=SR*:SRx=0 

11315 PRINTTCLRKREU1 SYSTENKUPON NR. " 

SR«: TFU=tTHENPRINT CCLRUREVJ INDTAST UO 

GANGSRK. " 

11320 GOSUB28030 

11330 GETQQ4: IFQO* = " 'TH£Nlt330 

11335 IFFL<0THEN1 1360 

1 1340 IF QQ* = "H"ORQQ* = "C F2] "THENIFU=0THEN 
SRx=SRx-l: GOTO 11220 

11341 1FQQ* = '[ Fl 3 ANDLENCSR*CSRx 3 3>0THEN 
GOSUB21700:GOSUB21500:GOTO1 1330 

11350 IFQQt M u 't F33"THENFL=-I : FORX=1TO200: 
NEXT: GOSUB2 1000 

11351 IFQQ*="CF3]"THENQ*-RIGHTtCSR*CSRx3 

11352 IFQ0*="CF3]-'THENSR*CSRx 3=LEFT*CSR* 
C SR» J . CLENC SR* C SR* ) )- 1 3 J: GO TO 1 1 330 

1 1355 IFQQ* : "[ F4 3 " THENFLM : FORX = l TO200: N 
EXT:EDSUB21800 

1 1356 IFQQt = '[ F4 3 "' THENGQSUB2 1 380: X =8: GOS 
UB20000: PRINT" 1X2" : GQT011375 

11 360 IF0Q4O" l'ANDQCHO'X" ANDQQ* <>"2"TH 
EN11330 

1 1 370 GQSUB21 280: G0SUB2 1380: GOSUB20880: P 
RINTQQ$:FL=0: IFLENtQS 3 = lANDQtOQQ'HHENQS 
=Q*+QQ*: G0SU82 1 1 00: Q*=" " 
11375 IFFL=1 THENQQ*="H" 



1 1 390 SRitSR* 3=SR*£SR* 3+GQi: IFU-0THENGDS 
UB21400 

11400 FL=a:GOSUB21000: IFLENt SRtCSR* J J<>1 

3THENI1330 . 

1 1405 IFU=1THEN14000 

11410 X=4: Y^22:GOSUB20008:PRINT"CREU3 GA 

RDERING F3 - NY KUPON F7 " 

11420 GETQQ4: IFQQS=" "THEN1 1428 

11430 IFOQ*='EF33"'THENI 1340 

11443 IFQQ* = "tF73'"THENl 1310 

11453 IFQQt="n"THEN18200 

11455 IFU = 1THENSR*=GE5( 

1 1 468 GOTOl 1420 

1 1 908 : : 1 1 =ERx: ER*=0: ER4 C8 3 = " " : GOSUB2800 
0: X=8: Y=B: GOSUB20000: PR I NT "C REU3 I NOT AST 
I 3'NEREM" 

11928 GETQQ*: IfrQQ*. = " - THEN1 1320 
11325 IFGQ*= n"ORQQ45"[F23 - 'THEN10280 
1 1930 IFGQ*='[F1 3"ANOLENCERM0 3 3>0THENGO 
SUB204.00 : GOTOl 1920 

1 1 940 I FGQ* <>" I " ANOQQ 4 <> 2 ANDQQ 4 O 'X 'TH 
EN1 1920 

1 1 950 GOSUB20200: G0SUB2B3B8: GOSUB2B000: P 
RI NTQQt: ER$C03=ER*C0 3+QQt: IFLENCER4C0 J 3< 
M3THENGOTOU920 

1 1965 ERx=I l:X=4:Y=22:GOSUB20000:PRINT"C 
REUJ CE 3NKELTRC KKER - CS 3YSTEP1RC KKER " 
11980 GETQQ1: IFQQt=""TMENl 1980 

I 1985 IFQQ* = "E ,, THENFL=0:GOTO27000 
11987 IFOQ4-"S"THEN27200 

11990 G0T011988 
12000 : 

1 70 1 0 PR INT I CLR 3 " : X=0: Y =0: GOSUB20008 i PR 
IHT'TREVj ANTAL TILFCLDI6E Rt KKER CC1AX.1 
20 J '* 

12025 X=35:Y=0: GOSUB28000: INPUTQi: IFQ* =" 
PI " THEN 10200 

12026 ERx=UALCQ4 3: IFER«< 10RER^> 1000THEN1 
2010 

1 2030 X =0 : Y=2 : GOSUB20800 : PRINT "C 7S/CK C/ 
R3[30S/C3CCyS3" 

12040 X-e:Y=3:GOSUB2B088:PRINT"RK.NR. [S 
/83TAST F0RH0LD5HC S5IG FOROEL1NG:[ S/B3 " 
12188 X=8: Y=4:GDSUB28000:PRINT"KAtiP NRCS 
/BJ[2SPC3K5SPC3Xr 5SPC321 15SPCKS/B3 " 
12120 X=0: Y=5:GOSUB28000:PRINT ,, C7S/C3CS/ 
+ 3C30S/C3CC/U3 ' 

12130 F0RY=6T022:X-8: GOSUB20000 : PR I NT " C R 

EU3C GR33C 6SPC3C BLK][ 6SPC 3C GR33L 6SPC3C BLK 

3C 12SPC3 " : NEXT: PRI NT" C LTGRN3 " 

12170 X=l:FORY=6TC38:GOSUB20000:PRlNTY-5" 

[ 3SPC 3£ S/B3 "SPC C 30 3 C S/B 3 " : NEXT 

12180 X-©:Y=9:GOSUB20000:PR1NT *'C75/C]rS/ 

+ 3C30S/C3CC^W3" 

1 2 1 90 X = I : FORY = 1 0TO 1 2 : GO SUB20000 ! PR I N TY- 

6"C 3SPC3I S/B3 SPCC 30 J"t S/B3 " :NEXT 

1 2280 X = 0: Y = 1 3: GOSUB20000: PR INT i 7S/C3t 5 

/tO£30s/c3tc/u:r 

12210 X=UFORY = 14TOIB:GOSUB20000:PRINTY- 
7 "C 3SPC 3 C S/B 3 " SPC C 30 J"C S/B 3 ' : NEXT 
12220 X = 0: Y = 17= GOSUB20000: PRINT "C 7S/C3CS 
/f][30S/C3CC/U3" 

12230 X-0:FORY=18TO2t : GOSUB20000: PRINTY- 

B"t 3SPC ) C S/B 3 " SPC C 38 3 [ S/B3 " : NEXT 

1 2240 X = 0: Y =22: GOSUB20B00: PR IN T"C 7S/C 3 1 C 

/E3[ 30SA;3[ C/X J " : PRINT LTGRNJ " 

12310 R=i:FORY=6T02I I X=S: IFY=90RY=130RY= 

17THEN1235P 

12320 GOSUB20000: INPUTQ4-:R1 LR ) =OAL CQ* 3: X 
= n:GOSUB20000: lNPUTOV-RXCR )=UpL.CO* )=X=2 
0 

1234,0 GOSUB20080: INPUTQ4: R2CR 3 =^ALCQ* 3: R 
=R+1 

1 2350 NEXT : GOSUB1 2500 : FOR I = I TOERx : ER4 C I 3 
= "":F0RII = 1T013:R=R1 C 1 1 J+RXC II J+R2CII 3:T 
F-INTlRNDt I 3*R 3*1 

12425 IFR=0THENR=3:RlCII3=l:RXtII 3=1:R2C 

II ) = 1:TF = INT(RND( 1 3*3 5*1 
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12430 IFTF<-R! C C I 3THENER* C I 3=ER*( 1 3+" 1" 
12410 IF TF>R H 1 1 3PNDTF <=R 1 C 1 1 3*RX( 1 1 3THE 
NERiCI 3=ERiH 3+'*X" 

12450 IFTF >R1 [ 1 1 3tRXC I I 3THENER*CI 3 = ER* C J 

3+ "2" 

12460 NEXT II :GOSUB 12688: NEXT J :GOT01 0200 
1 2500 : : X =26 : V - ? : GOSUB20000 : PR 1 NT " C 2SP C 3 
BEREGNING ' : X=26: Y=l 1 : GOSUB20000: PRINT "I 
2SPC3R [ K K E " 

12540 X=29: Y=14: GOSUB28080: PRINTS S/UJC 4 
S/C3CS/I ]":x-29: Y = 1 5: GOSUB20000: PRINT'CS 
/B3C4SPC3CS/B] - ' 

12560 X=29: Y = 16: GOS.UB20000: PRINT' E S/J ] [ 4 

S/C3CS/K 3": RETURN 

12600 ::X=32:V=I5: I F I >9THENX=X-1 

12630 IF i >39THENX=X-1 

GOSUB20000:PRINTI:RETURN 
13000 :!Pb!nT-CCU<3 **-l0;Y=3:GOSUB20000 
: PR INT [ REU3T 2SPC 3RE0UCERE0E SYSTEMERC2S 

per 

13020 X=9: Y=8: GQSUB28000: PRINT" 1 > INDTflS 
TNING AF SYSTEM" 

13030 X = 9: Y=9:GOSUB20000:PRlNT-2> LOAD S 
YSTEfl - BAAND" 

13010 X=9: Y=10:GOSUB20000:PRINT'3> LOftD 
SYSTEH - DISKETTE" 

13050 X-9: Y=Ll:GOSUB20000:PRrNT"4> SAUE 
SYSTEM - BAAND"' 

13060 X-9: Y=t2:GOSUB20000:PRrNT"5> SfluE 
SYSTEM - DISKETTE' 

13070 X=3:Y=t3:GOSUB20000:PRlNT-6> INDTA 
ST SYSTEflOPSTILL ING ' 

13090 X=9: Y=M:.GOSUB2B000:PRINT"0> HOUED 
MENU : X=0: Y=20: GOSU620000: PR I NTST* 
13101 X=12: Y=22: GasUB20000:PRINT"CREUJ I 
NDTpST UpLG 0-6 " 
13110 GETQ4: I FQi = " THEN 13 t 10 
13120 Qx=UAl_CQ* 3: IFQx=0THENl0200 
1 3 1 30 ONQXGOTO 1 3200 . 1 3520 , i 34 70 , 1 3600 . J 3 
400.13920 

13200 :: PRINT '[ CLR3 :X=7: Y=2: GOSUB28000: 
PRINT'CREU)[?SPC3INPTP.STNING PF SYSTEMC 2 
SPC] :X=0: Y=20;GOSUB20000: PRINTST4 

A2&JL X £2i Y ^:GOSUB20000:PRINT"ftNT.SYS.K 
UPONER MPX-50: " : X=30: Y=5: GQSUB20000: INPU 
TSK* 

13220 X=7: Y=6:GO£UB20000;PRINT 'flNT.ENKEL 
TRK.CMflX. 1203: ": X=30: Y-6: GOSUB20000: INPU 
TRE* 

13230 X=7: Y=7: GOSUB20000: PRINT'ANTPL HEL 

GARDERINGERC2SPCJ:-:X=30:Y-?:GOSUB20003: 
INPUTHEx 

13240 X=?; Y=8 :GOSUB20000: PRINT flNTPL HflL 

UGPRDERINGER : " : XO0: Y=8: GDSUB20000: INPU 

THftx;Gfl*=HE*+HP.;< 

13245 rFU=ITHENGOSUB14300 

13250 IFRE*=0THENGOSUB14900: GOTO 13300 

13252 IFHEx=0THEN13300 

13255 FORi=lTOHE*:FORII=lTaiNTCCRE*/i0ji- 
.99 3 

mm Mmmm^m^ 1 ^ ,n 

S3270 X=7: Y=11:GOSUB20000:PRINT"EREU3 KU 
PON NR. "II "CCU3 -:x=22: Y = l 2: GOSUB20000: P 
R INT' [ S/J 3 [ 10S/x][S^K]" 

1 3280 X =0? : Y -22 : GOSUB20000 : PR INT "C 25SPC ] 

:GOSUB13800 
13230 X=07: Y=22:GOSUB2a000:PRINT-'CREU3 I 
NDTftSTNlNG OK? JCF73/N " 

13291 GETQ1: IFQ4= " THEN 132 9 I 

13292 IFQ4<>-CF73 'ANDQ* <>" N" THEN 13291 

1 3294 I FQi = 'N THENX=2 1 : Y = 1 1 : GOSUB20000: P 
Rl NT "[ l 2SPC3 " : TE* = " M : GOTOl 3280 

13295 IFQt = [ F71 THENHEK I D=HE*t I 3+TEt: X 
=2l:Y=l i:GOSUB20000:PRINT'C 12SPC3" 

13296 IFQ* = '[ f 73 "THENTEt=" " 
13233 NEXT I I . I : GOSUB14900 
13300 : : IFHflxz0flNDU=lTHEN14150 

13304 IFHP*=0*NQU=ITHEN14150 

13305 JFHAX=0TMEN13000 



13306 IFREx=0THENGOSUB14800 

13307 I FRE X =0ANDU= 1 THEN 1 4 1 50 

13309 JFLENCHfitC 1 3 3=0*NDRE*>0TH£N1 3310 

13309 GOTOl 3008 

13310 HP.= l:FORI =1 TOHfi*: FOR 1 I = 1 TOINTt CREx 
/10 3t0.93 3 

13320 X=7:YM3:GOSUB20000:PRINT"CR£U] IN 
DTPST HflLUGftRDERlNG NR.TTCU] " 
13330 X=7:Y=14:GOSUB20000:PRINT [REU3 KU 
PON NR . "I I "[ CU3 ":X=22:Y = 15:GOSUB20000:P 
RINT "t S/J 3T 1 85/**] [ S/KD " 

13340 X=07r Y=22: GOSUB20000: PRIh T '[ 25SPC1 

:GOSUB 13803 
13350 X-7: Y=22:GOSUB20000:PRINT"CREU] In 
DTflSTNING OK? JfF7)/N " 
13360 GETOt: IFQt= " THEN13360 
13370 IFQ*<>"CF73' ANDQiO "N-THErJ13360 
13300 IFQt='N-THENX=:2!:Y = M:GOSUB20000:P 
RINT' C 12SPC3":TE*= " :GOT01334B 
13390 IFai = "EF7 3"THENHP4CI 3=MP4 f I 3t-TE*:X 
-21: Y=t4: GOSUB20000: PRINT [ 1 2SPC3 " 
13395 X--07:Y=22iGOSUB2B000:PRINT'r25SPC3 
": IFQ*= tF7]"THENTE»= " 

13397 NE*TII:GOSUBl4700:NEXTr:Hrt=0:GOSUB 
14800: IFU=ITHEN14150 

13398 GOTO13003 

13400 : :GOSUB20600:X-06: Y-22:GOSUB20000: 

PRINT'TREU] I NDTPST FILE NftUN ":X=25:Y=2 

2:GOSUB20000: INPUTNFt* 

J3g2l IFLENt N0t 1 =0THENNBi = " TEST " 

13425 OPEN?, 6. 15 

13430 GOSUB20600: OPENl ,0,2. "00: *'+NAi*" S 
.U" 

13435 INPUTb2.P,*.B* 

13436 IFP,4= '00"7HEN13440 

13437 X=6:Y=22:GOSUB20000: PRINT'TREU] DI 
SK ERROR: ' BS 

1343B CLOSE2;FORT=1TO4000:NEXT:CLOSE1: IF 
U=0THENGOTO13000 

13439 GOTO11000 

13440 PRINTol .RE=<:PRINT«1 .HEx:PRINr»l .HP 
x:PRlNT»l ,GA--t:PRINToi ,SK>s:PRINT«il .N04 

13449 IFRE«=0THEN13456 

1 3450 lFH£x>0THENFORI = I TOHEx: GOSUB29500: 
NEXT 

1 3455 I FHflx >8THENF0R I = 1 TOHflx : GOSUB29600 : 
NEXT 

13456 IFSKx=0THEN!3460 

13457 IFHE^>0THENFORI = 1 TQHE*: PR JNTn 1 ,SE* 
fl 3:NEXT 

1 3458 IFHrtx >0THENFOR I = 1 TOHflJt: PR INT" 1 .Sp.* 
CIJ:PRINT*1.CK«CI3:NEXT 

13460 CL0SEUCLQSE2: IFNB* = "TES T " THENN0* ■ 
" ":GDTO10200 
13465 GOTO10200 

1 3470 : : GOSUB20600: X=06: Y =22: GOSUB20000: 
PRINT'lREU] iNDTflST FILE NflUN ":X:Z5:Y=2 
2:GOSU620000: INPUTNPi 
13500 0PEN2.S.15 

13510 GOSUB20600: OPENl .8.2. 0: '*-Nfl*+ - . S , 

R" 

13515 INPUT»2.A*,B4 

13516 !FP*= '00 THEN13520 

13517 X-6= Y=22: GOSUB20000: PRINT""[ REU3 DI 
SK ERROR: Bt 

13518 CLOSE2:FORT=1TO4800:NEXT:CLOSE1: IF 
LU8THENG0T0 13000 

13519 GOTOl 4000 

13520 INPUT" I .REx: INPUTbI .HE*: iNPUmi ,HA 
x: iNPUIul .GP«: INPUTnl .SK*: iNPUTal ,N0* 

13529 IFRE«=0THEN13541 

13530 lFHEx>0THENFORI = 1 TOHEx: GOSUB29700: 
NEXT 

13540 IFHRx>0THENFORI=l TOHAx: GOSUB23800: 
NEXT 

! 35 4 1 I FSK x =0 r HE N 1 3 550 

1354? IFHE*>0THENFORl=trOHExr INPUT" 1 .SE* 
1 1 J • Pit 1 

13543 IFHAJOBTHENFORI =lTOHflx: INPUT" 1 .Spi 
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n ) 

13541 IFHflX>8THEWNPUT<H .CK4( I 3:NEXT 
13550 CLOSE 1: CLOSE 2: IFN8*= TESTTHENN0S: 
- ~:GOTO1B280 
13555 GOTO10200 

13600 : :GOSUB20600:X=86: Y=22: GOSUB28000: 
PRINT [REU] JNDTAST FILE NAUN :X=25:Y=2 
?: GOSUB20880: INPUTNA4 

13633 GOSUB?B60B:OPEN1 .1 .1 -NfW:PRINT«l ,R 
Ex:PRJNT«l ,HEx= PR rNT« 1 .Hftx: PRINT* 1 ,GF»x 

13632 PR INT a 1 .SKx: IFNB4- ' "THENPR1NT«1 ,"T 

13633 IFN04O "THENPRINTbI .N04 
13635 I F REx =0 THEN 1 3653 

1 3651 IFHEx >0THENFOR I =1 TOHE»: GOSUB29500: 
NEXT 

1 3652 IFHflx >0THENFDR I =1 TOHflx: GOSUB29600: 
NEXT 

13653 IFSKX-0 THEN 13656 

13654 IFHE--*>0IHENFOR1 = 1 TOHE*: PRINT* 1 .SE* 
( 1 3: NEXT 

13655 IFHAx>BTHENFORl = 1 TOHftx : PR I NT »1 .SA4 
(J 3!PRINT«1 ,CKltn:NEXT . 

13656 CLOSEl: IFN01= TEST THENN0*= " :GOTO 

10200 

13660 GOTO 10200 

13670 ! ! GO5UB20600: X =06: Y=22: GOSUB28080: 
PRINT'CREUJ INDTAST FILE NAUN ;X=25:Y=2 
2:GO5UB20fl00i I NPUTNA4 

13710 GOSUB2060B:OPEN1 .1 .B.Nfl*: INPUT" 1 .R 
E*: INPUT*! .HEx: INPUT-1 .HAx: INPUT" 1 .Gftx 

13212 INPUT"! .SKx: INPUTS .N0»: IFRE*=0THE 
N 13736 

13732 IFHEx>0THENFDRi=lTDHEx:GOSUB29700: 
NEXT 

13734 JFHflx>BTHENFQRI=tTOHftx:GOSLIB29888: 
NEXT 

13736 IFSK«=0THEN13742 

13738 IFHE'-*>arHENF0Rl=lTOHEx: INPUTS .SE4 
C I 3: NEXT 

13748 IFHfV-OeTHENFORTMTOHfV*: [NPUTal .Sfli 

cm inputs ,ck*ci )=next 

13742 CLOSE 1 J IFN04=" TEST " THENN0* = ' : GOTO 
10200 

13744 GOTOI0200 

13880 : :Y=1U IFHR = 1THENY = 14 

13806 GETU-i: IF04 = "THEN13806 

1 383? I FQi <> " 1 " ftNDQS O 2 PIN0Q4 O X ftNDQ* 

<>'CFir'flN0Q*O'XF5r-THENl38B6 

13808 1FQ4 O'C F 1 3 "THENTEt = TE*+Q*= X-23; GO 

5UB20BB8: PR1NTTE* 

13909 I FQi = *t F 1 3"THENTEi=LEFT4(TE4 .LENCT 

F* 1-1 1: ROSUB13840:Q4= :G0T013888 

13810 iFQ*-EF53THENGOSUB220BBs IFU=0nNQ 

l k'i = 1 flNDSK = BTHENGOSUB 1 3950 

13815 IFG*-" IF5] THENRETURN 

13820 I FLENt TE* ) > 1 8THENTE4 =LEF T* ( TE4 .10 3 

33822 IFLENCTEi]<>l0THEN13806 

13825 lFU=0ANDHft = lTHENGOSUB13850 

13830 RETURN 

13840 Y=ll: IFHfl=tTHENY=14 

13842 X=23:GOSUB2000B:PRINT t IB5PC1":RET 

URN 

13850 ::FORZ=lTOLENCTE*): IF 1 1 =lTHENft*=LE 

l3880 E Ci=MlDi-tTEi.Z.l ):IFC4=A4THEND*=D*t 

A " 

139B0 |FC4<>A4THEN04=D4+ 'B" 

13910 NEXT2: TE4 = Pi: D4 RETURN 

13920 ::PRINT C CLR1 " : X =7: Y*3: GOSUB20000: 

PRINT -CREUK2SPC3INDTNST SYSTEHOPST ILL IN 

GC2SPCV* 

13931 X=0: Y=20:GOSUB20080=PR1NTSTS:FORI= 
1T013:ERX=RE* 

13934 X = 7: Y=5 1 I : GOSUB2080B: PR INT KAPIP NR 

1 3936 * X =7^ Y =22: GOSUB280B0 : PR 1 NT ' C REU ] Rt 
KKER BEREGNES rFORI MTOR£*:HE = l:Hfl = i: FO 



R1I=1T013 

13940 IFLENCRE*f II )1= L THENERit I 1=ER4C I 3+ 
RE*C II ):NEXTI I . 1:001013958 
13942 IFLENCRE4UI 3 3=3THENFR*r I i=ER4f I )• 
WID4(HE4(HE 1.1.1 3:HE=HE*i:NExni .[.'GCirol 

13944 IFniD^CHMCHflJ.l.l )= THENER4C I )= 
ER*(I D+LEFT4{RE4( 113.1) 

13946 lFIIUHrHnifHfn. 1 .1 3 = '"B"THENER4( I 3= 

ER4CI 3+RIGHTtfREif 113.13 

1394B Hft=HfVH:NEXri I . I 

13950 SRx=SKx: lFSRx=0THEN13990 

13952 FORI = 1 fOSKx:HE = i:Mft = l:FORH =1T013 

13954 JFLEN(RE4C II 3 > = I THENSRif 1 3=£R4C I 3* 

RE*(Il):NEXri I .I:GOTO107BB 

13956 IFLENCRE4U I )3=3THENSR4t I 3=SR*CI )+ 
fllDiCSElCHE ).I .1 )sHE=HE*-l:NEXT M . lsGOTOl 

13959 04=RE4[ I I ):GOSU021 1 00: GOSUB23500: R 
E4=MlDi(SA*CHA J.I.I ):GQQJB23000 

13960 SR4CI )=SR4[ I 3+RE4: HA=HAt 1 : NEXT 1 1 . 1 
:GOTQ1B200 

: PRINT"C REU3C 2SPC 3UDGANGSRC KKE SYSTEHERC 
2SPC3':U = 1 

14020 X=9:V=8:GOSUB20000:PRINT*1> INDTAS 

tning mf srsTErr 

14025 X=9: Y=09: GOSUB28800: PRINT'"2 > IMDTA 
5T S YSTEP10PST I LL I NG " 

14030 X=9:Y=10:GOSUB2BB00:PRINT "3> INDTfl 
ST UPGftNGSRCKKE" 

14040 X=9:Y = ll:GOSUB2B000:PRINT' , 4> LOAD 
SYSTEn - BAflND" 

14850 X=3: Y=t2: GOSUB200BB: PRINT "5> LOAD 

f t%l 0 n X =9?Y iflIJ5sUB20B00: PR I NT "6 > SflUE 

?407B n x=9?Y=14:GOSUB200e0:PRINT"7> SmUE 
SYSTEP1 - DISKETTE*' 

14098 X=9:Y=15:GOSUB2000B:PRINT0> HOUEO 

flENU" : X =0: Y=20: GOSUB20B80: PRINJST4 

14101 X=12:Y=22:GOSUB20BB0:PR!NT [ REU 3 I 

NDTflST UALG 8-7 

14110 GETQi: 1FQ*= THEN 1 4 1 10 

14120 Qx=Um-(Q*]= IFQX:0THENU=0:GOTO10200 

14130 ONQxGOTO 14 140 -1450B. 11300.13670,13 

47B.1368B. 13400 

1414B U=l: GOTO1320B 

14150 U=0: GOTO14088 

14300 FORI =lTOGfl=<-l 

14315 IFI>HExTHEN14350 

14320 X=7: Y = 17:GOSUB2008B: PRINT , fREU3 IN 
PTflST NBGLETEGN ' 

1433B X=7:Y = 1B:GOSUB20BB0:PRINT"CRE"J3 HE 
LGflR0ERING[3SPCJ"I TCU] : X=28: Y =18: GOSU 
B20000: INPUTQt 

14345 X=30:Y-lB:GOSUB2e080:PRINT ' 
14350 IFHflxM THEN14425 

144BB X=7: Y = l 7 : GOSUB280BB: PR I NT" [ REU] IN 
DTAST NBGLETEGN 

1441B X=7=Y=18:GOSUB20000:PRINT CREU3 Hft 
, LUG*RDERINGC2SPC3 I-HE* CCU3 "*l 
114 12 X-28; Y=18: GDSUB2080e: INPUTQ* 
14425 IFLENCNB4 3<>G^xTHENN04=N8t+Q*tX=3B 
: Y" 18: GOSUB20000" PRINT 
14430 NEXT:RETURN 

14500 ! :PRINT C CLR] " : X =?: Y=3: GOSUB2BBB0: 
PRINr'tRE!j3C2SPC3INDTflST SYSTEMOPSTILL IN 

GC 2SPC ]" 

1452B X=B: Y=2B: GOSUB20000: PR1NTST*: N*=NB 
4:F0R1 :1T013:ERx:REz:X=7: IFI >=t0THENX=6 
1455B Y=5+ 1 : GDSUB20BB0: PR INT "KflPlP NR . '* 1 1 
! INPUT RE4 C I 3: NEXT: X=7: Y=22; GO5UB2000B' PR 
INT CREU1 RtKKER BEREGNES - 
14556 1FRE*=BTHEN14680 

14560 F0RI=1T0REx:hE=1:HA=1:FORII=1TO13: 
RE*=niOtCHE*CHE3.I . 1 ): SY* =P1 ID* CSR* C 8 3 . II 
.13 
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14570 IFLENCRESCII 3 3= 1 THENER*CI 3=ER*C I )♦ 

RE* C I I 3: NEXT I I . I :GOTO14600 

14575 IFLENCRE4UI 3 3=3THENN04=niD4CN4.HE 

.n 

14580 IFLE.NCRE4CII )3=3THENGQSUB23000:ER* 
CI 3=ER*CI >RE4:HE=HE+l:NEXTI I ,I:GOTO1460 

14581 N04=MID4CN*.HE*+HA. 1 ): Q4-REi( 1 1 3=G 
0SUB21 100: RE* =niD4CHA4CHA 3.1,13 

14590 GOSUB23600:ER*Cn=ER*n 3tR£4: HA=HA 

+ 1: NEXT 1 1 . J:EFsc=8 
14600 SRx=SKx: IFSRx =0THEN14690 
14610 FORI =1T0SK*."HE = 1:HA = 1: FORI I =1T013: 

RE*=niD*CSE*CHE3.I .1 3: SY4=niO*tSR4t 0 3 . 1 1 

f4620 IFLENCREif II 3 3 = 1THENSR*( J 3 =5R*C I 3* 

RE4<II 3:NEXTI I . I : GOTO10200 

14625 IFLENCREif 1 1 3 3=3THENN0i =ni D4(N4 .HE 

.13 

14630 IFLENCREU [J 3 3=3THENGOSU823000: SR4 
(I 3=SR*C1 3*RE*:HE=HE+lrNEXTM ,I:GOTO1020 

14634 N0i=niD*CN*.HE**Hfl.t 3;Q4=RE*C II 3= G 
DSU021100: RE4=MID4CSA4CHA3.I . 1 3 
14640 GOSUB23000:SR4tI 3=SR4CI 3+RE4:HA=HA 
+i:NEXTII .1 

14690 N04=N4: GDTO10200 

14700 : : FQRA = 1 TOLEN C HA* C I 3 3: A4=pl ID4(HA4( 

I 3. A. 13: IFA=!THENB4=A4 

14710 IFA>I ANDA4 <>B*THENC*=A4-»B* 

14730 IFC* = IX ORC* = XI THENCK4C I 3 = "'A" 

14710 IPC*: 1 ' t2"ORC*="2t"THENCK*C I 3 = "B" 

14750 IFC* = X2"DRC4 = ,, 2X"THENCK4C I 3 = "C" 

14760 NEXT:A4= ' ' i Ci=" " : RETURN 

14800 : ! IFSK*=0THENRETURN 

1 4820 HA = 1 : SK = U FOR II = 1 TOHA*: FOR I = 1 TQSK* 

14830 X=7: Y = l 3: GOSUB20000: PRINT " [ REU] IN 
DTASTSYSTEfl-KUPQN NR. " I"[ CU][ 3SPC3" 

14831 X-7: Y = l 4: GOSUB20B00: PRINT'C REU3 GA 
RDERING II'TCU] ';X=22: Y = 15: 6OSUB2B000: 
PRINT"! S/J]f 10S/X3C S/K 3 " 

14840 X=07: Y=22: 6OSUB20000: PR I NT C25SPC3 
' :GOSUB 13600 

14850 X-07: Y-22;GOSUB28000:PRINT CREU] I 

NDTASTNING OK? J CF7 3/TJ 

11880 GETQ*: IFQ* = """THEN14860 

1 4870 I FO* <> ■ C F7 3 " ANDQ* < > "N" THEN 1 4860 

14880 IFQ*= "N" THEN* =21: Y=14: GOSUB20000: P 

RINT T S2SPC] " : TE4 = ' ' : GOTO I 4840 

148B5 IFQt= CF73 ANDQQ*~ H"THENQQ4="A" 

14890 IFQ»= "I F73 "THENSFI4C I 1 3=SA4 C 1 1 3+OQ* 

: X =2 1 : Y = 1 7 : GO SUB20000 : PRINT *C 12SPCJ" 

14892 IFQ04O 1 ^* : ^NDQQ4<>"X■ AND0Q*O"2"TH 

ENCK4C II 3^QQ4 

1 4895 X =07: Y = 22: GOSUB20000: PR INT "C 25SPC 3 

14896 IFO* = "[ F73 THENTE4 = " ' : X =21 : Y=14: GO 
SUB20000: PRINT t 10SPC3" 

1 4899 NEXT I : GOSUB24000: NEXT 1 1 : SK =0: RETUR 
N 

' 14900 *■ : IFSKx=0ORHE*=0THENRETURN 
14920 SK=1 :FORI I =lTOHE*:FORI=lT0SKx:x=7: 
Y = 10:GOSUB20B00:PRINTTREU3 INDTASTSYSTE 
11-KUPON NR. "I "CCU3 " 

14931 X=7:Y = i 1 : GOSUB20008: PRI NT "f REU3 GA 
RDERING- I1IDJ] : X=22: Y= 1 2: GOSUB2B800: 
PRINT "r S/J 3C 10S/XK S/K3 " 

1 4910 X=07i Y^22: GOSUB28000: PRINT "[ 25SPC3 
" :GOSUB 13300 

14950 X=07: Y=22: GOSU820000: PR INT TREU3 1 

Wig§ r gE t ?5*? ( fFQi= F7 ?^N 1 4960 

14970 lFOiO"CP73 , 'ANOGiO"N" THEN 14960 

1 4980 IFQ*= *N" THENX =21 : Y = 1 4 : GOSUB20000: P 

RINT "[ 125PC3":TE-i = '' ":GOTOl4940 

14990 IFQ* = " C F7] THENSE4CII 3=SE4( 1 1 3+OQ* 

:X=21:Y=14:GO5UB200B0:PRINT t 12SPC] " 

1 4995 X=07: Y =22: GOSUB20000: PR I NT ""C 25SPC 3 

E*=* , ":X=21:Y=11:G0 



14990 IFQ4 = I F73"THENSE4C 1 1 3 =SE4C 1 1 3+QQ* 
:X=21 : Y = 14: GOSUB20000: PRINT 7 12SPC3 - ' 
1*995 X=07: Y=22:GOSUB200B0:PRINT' C25SPC3 

4SllgeJ£?M ifi?^ iffiPPT ES = " " = X *2 1 : Y = 1 1 : SO 

NEXT I , I I : SK =0: RETURN 
15000 REflxxxxxxxxxxxxxxxxxxxxxxxxxx"**** 
15010 REM DIRECTORY RUTINE 

15020 REHxxxxxxxxxxxxxxxxxxXxxxxxxxxxxx 
15030 0PEN2.8.15 
15040 PRINT CCLR3" : GOTO 15460 
1 5050 PR I NT " C CLR ] " : OPEN 1 . 8 . 0 . *0 " 
15060 GET t*i .A4.B4 
15070 GET » 1 .A4.B4 
15080 GETbI .A4.84 
15090 C=0 

15100 if mo then c=asccf»43 

15110 IF B4<> THEN C=C+flSCCB4 3x256 
lSlge^PRINT CREU] MI04.CSTRiCC3.2 3; TflBf 3 3 

i5130 GETnl.BttIF STO0 THEN 15220 
15140 IF B40CHR4C34 3 THEN 15130 
15150 GETp1.B4:IF B40CHR4C343THEN PRINT 
B4: :GOTO15150 

15160 GET n 1 ,B4; IF 8i=CHR4(323 THEN15160 

151?0 PRINT TABC 183: :Ct= ' ' 

15180 Ci=C4tB4:GETBl .84: IF B4<>" THEN 15 

180 

ETURN 

15210 IF ST=0 THEN 15820 
15220 PRINT BLOCKS FREE*' 
15230 CLOSEUPRINT [2CN3C 12CH3CREU3 TRYK 
EN TAST ~ 
15240 GETQ4: IFQ«=" THEN15240 
15250 GOTO 15460 

15260 IFT-4 = "Q"THENCU0S£ 1 : CL0SE2: RETURN 

15270 GET 14: IF T*=" M THEN 15260 

15280 RETURN 

15290 REfl DISK COHPIAND 

15300 PRINT CCLR]" 

15310 C4^ :PRINT > : 

15320 GETB4: IFB* = " ' THEN15320 

15330 IFB-4; 0' THEN 15460 

15340 PR1NTB4;:IF B4-CHR4C133 THEN 15360 
15350 Ci=C4+B4:G0TQ 15320 
15360 PRINT «2,C* 
15370 PRINT CCLR3" 
15380 PRINT C REU3 ": 

15390 G£T»2.Frt:PRlNTA4;:IF A4 <>CHR*C 1 3 JG 
OTO15330 

15*00 PRINT | 2CN3C 12CH3CREU3 TRYK EN TAS 
15410 GETQ4: EFQt = " '■' THE Nl 54 10 

154-40 PRINT ■[ 2CN3E 12CH3CREU3 TRYK EN TAS 

T " 

15450 GETQ4: IFQt=" THEN15450 

15460 PRINT "C CLR 3 " : X=09: Y=3: GOSUB20000 : P 

RINT-C REU ][ 4SPC1DISK-N0PE HENUC ^SPC][ OFF 

15470 XMB: Y=7: GOSUB20800: PRINT C REU3 t[ 
OFF] - DIRECTORY- 

15480 X=10:Y=9:GOSUB20000:PRINT' CREU3*C 
0FF3 - DISK CDIWAND CQ=QUIT3 H 
15490 X=10:Y=ll:GOSUB2000B:PRINr I REUJQ 
IOFF] - QUIT DISK MODE " 

15508 X = 10: Y=13: GOSUB28000:PR1NT- CREU]#- 
E OFF 3 - DISK STATUS " 

1 55 10 X=0: Y= 19: GOSUB20000: PR I NTSTt 

15520 X-12: Y=21: GOSUB20000: PR INT TREU3 U 

CLG FUNKTION C0FF3" 

15530 GETA4: IFAt = '" THEN15530 

15540 IF A*=-f THEN 15050 

15550 IF A4="x-THEN!5290 

15560 IF A4= 0 , THENCLOSE2:GOTO1020a 

15570 IF fl4= -*- THEN 15370 

15580 GOTO 15530 

1 6000 : : PRINT * [ CLR 3 " : X =1 1 : Y=2: GOSUB20000 
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:PR1NT CREU] PRINTERUDSKRIFTER " 

16020 X=8: Y=6:GOSUB20000;PRJNT 1> ENKELT 

RK . TIL EGET BRUG " 

16025 X^8: Y =8; GOSUB2080B; PR INT 2> SYSTEH 
RK. T]L EGET BRUG ' 

16030 ^■8;Y-10:GOSUB20000;PRINT 0> HOUED 
flENU - 

161 10 X = 0: Y=?0:GOSUBZ0000:PRINTST*;X=11: 
Y=22:GOSUB2B000:PRJNT IREU3 INDTAST UALG 
0-2 ' 

16130 GETQ* : I FQi= ' THEN16130 
16MB : UfiL£Ql 3: IFQ*=0rHEN10200 
16150 IFQX=1THENI6210 
16160 1FQ*=2THEN16400 
16170 IFQx>lTHEN16l30 

16210 DPEN1 ,4:OPEN6.4.6:0PEN3.4.3:PRINT& 

3.CHRKI 12 3:PR2NT*1 .CHR*( 147 1: FORI =1T0ER 

XSTEP10: IA=INTCCI*9ViB3*10-10 

16230 PR[NT»1 ,CHR*t 14 ) KUPON NR. "INTCCI 

+9 3/10 3: PRINT* I .CHRiC IS3:PRINT«6,CHR*C22 

3 

16240 PR INT" 1 ,P14 : PRINT" 1 , "RK .NR . ES/-3 
1 ES/-3 2 ES/-3 3 CSv-3 4 ES/-] 5 ESx-3 
6 ES/-3 7 ES/-3 6 fSX-3 9 ES/-310 ESy-3" 
16250 PRINT*! . 'KftfiP NRE S/- 3 1X2E S/-3 1X2E S 
/-3IX2ES/-31X2CS/-3IX2CS/-31X2ES/-31X2ES 
/- 3 1 X2E Sy- 3 1 X2C S/- 3 1 X2C S /- 3 " : PR I NT * 1 . P2* 
16270 FDRJriT013: [FJ =40RJ =70RJ =10THENPRI 
NTot ,P2* 

16280 FORI! = t TO 1 0: iFIA+I I>ERxTHENTE*=-[3 

SPC 3E S/- 3 " : GOTO 16310 

16290 TE*=MIDiCER*(IflMl 3. J .1 3=GOSUB1690 
0 

16300 IF 1 1 ■ 1 THENPA*="E 2SPC3 "♦RlGHTtCSTR^ 
f J 3 .2 3+ [ 3SPC3C S/- 3 M f TE* : NEXT II : GOT01632 
0 

16310 Pfl*=Pfl*+TE*: NEXT I 1 :PRINT»1 .PA* 
16320 NEXTJ:PRINT*1 ,P3$: PRINT»l:PRINT»l : 
IFC INTCC 1+9 3/10 3flNO3 3=0THENPR[NTBl ,CHR*C 
12) 

16340 NEXT I 

16399 PR INT* I : PR INTn6 .CHR4C 24 3: CLOSE 1 : CL 
QSE6;CLOSE3:GOTQ10Z00 

16400 REI1 SYSTEMRtKKER *" 

16*110 0PEN1 .4:0PEN6.4.6:0PEN3.«.3:PRINT* 

3.CHR4C1 12):PRINT«1 ,CHR*CI473 

16420 FORI = 1TOSR^STEP10= IA= INT( ( I *3 3/10 J 

*10-10 

164.30 PR INT" 1 ,CHR*C 14 )' KUPON NR. "INTCCI 
♦9 3/1 0 y. PR INT* 1 .CHRtC 15 3 : PR INT*6 .CHRtC 22 
3 

16440 PR I NT* 1 ,P1*: PRINT* 1 , "RK .NR . ESx-3 
1 CS/-3 2 ES/-3 3 ES/-3 4 ES/-J 5 CSX-3 
6 ESx-3 7 ES/-3 8 ESx-3 9 ES/-310 tSx-3 
16450 PRINT»1 .'•KAPIP NRC S/-3 IX2E S/-3 1X2E S 
/-31X2ES/-31X2C S/-3 1X2E S/-3 1X2C S/- 3 1X2E S 
/-UX2ES/-31X2C S/-31X2ES/-3":PR1NTp!.P2*. 
16470 F0RJ=1T013: IFJ =40R J=70RJ =10THENPRI 
NT*1 .P24 

16480 FORI I -1TO10: I F I F>+ 1 I >SRxTHENTE4 = "t 3 
SPC3C S/-3 :GOTO!6510 

16490 TEi=P1I04CSR*C Xft+l I 3. J .1 3:GOSUB1690 
0 

16500 1FII = 1THENP(=I*= 'I 2SPC J " ♦RlGHTtCSTR*. 
( J3.2 3t"[3SPC)CS/-J"tTES:NEXTIl:GOT01B51 
5 

16510 PA*=Pfli+TE*tNEXTI I :PRINT»1 .Pfti 
16515 NEXT J 

16520 PR INT ni ,P3*: PRINT»1 : PR INT" 1 : IF C INT 
C C 1*9 3/1 0 3AN03 3 =0THENPR I NT* 1 .CHR*( 12 3 
16540 NEXT I 

1 6598 PR I N r » 1 : PR I N T b6 , CHR* (243: CLOSE 1 1 CL 
0SE6: CLOSE3:GOTO10200 

16900 :: IFTEi = " 1 THENTE*=" 1C 2SPC3C S/— 3 " : 
RETURN 

16920 IFTE*= 2' THENTEi = " t 2SPC3 2E S/- 3 " : RE 
TURN 

16930 IFTE* - X THENTE*=" X E S/- 3 ": RETURN 
16940 IFTEir'A THENTE4=" IX E S/-3"':RETURN 



16950 IFTE*= B THENTE"* = " I 2E S/- ]": RETURN 

16960 IFTE*=' C'"THENTE* = " X2E S/-1 ": RETURN 

16970 IFTE*= "H"THENTE"* = " 1 X2t S/- ] " : RETURN 

17000 : :PRiNT"E CLR3 ' : X=l 1 : Y=2: GOSUB20000 

:PRINT"EREU3 SKE RI1UDSKRIFTER " 

17020 X=11:Y=6:GOSUB2B000: PRINT" \> ENKEL 

Jf F&i^K§^ E 1 : r=8: GOSLIB2B000: PRINT"2> SY 

T7TB0 8=1 1: Y=10:GOSUB200B0:PRINT"0> HOUE 

DMENU " : X=0: V =20: GOSUB20000: PRINTST4 

17120 X*1I:Y=22:GOSUB20000:PRINT T [REU3 1 

NDTflST UALG 0-2 " 

17130 GETQtt IFQ*=" THENI7130 

17140 Qx=UflLCQi-3: IFQx=0THEN10200 

17150 ONQxGOTOl 7200.17300 

1 7200 : : KU* = 1 : GOSUB28B00: TT =ER«: FOR I = 1 TO 

TT:KU* = INT( [/1 0 )+ 1 : ER« = I : FORI I =! T01 3 

17230 QQ*=HED*CER*CI J.M.I V- GOSUB20200: G 

OSUB2BS00:GOSUB20000:PRlNTQa*:NEXT: IFERx 

-INT C ER*/1 0 3» 1 0 =0T HENGOSUB20700 

17255 IFI=TTTHENGOSUB20700 

17260 NEXT:ER*=I-I :GOTO10200 

17300 : : FORI = 1 T05R«: PRINT [ CLR3 E REU3 SYS 

TEHKUP0N NR. 1 : GOSUB28030: FORI I =1 T013: Q 

Q4=niD*(SR4E 13. U . 1 3 

1 7330 IFQQ*="fV THENX*= 1 : GOSUB21200: 60S 

UB20800: GOSUB20000: PR INTX* 

17335 IFQQt = "'A" THENX* = "X" ; G0SUB21 200: 60S 

UB 28800: GOSUB20000: PR INTXi: GOTO 17370 

17340 IFQQ*= B' THE NX* = ' 1 ' : G0SUB21 200:GOS 

UB 20B0B: GOSUB23000 : PR I NTX* 

17345 IFQQ*= *B THENX*= 2" : G0SUB2 1 200: 60S 

UB208O0: GOSUB20000: PR INTXi: GOTO 1 7370 

17350 IFQQ4='T"THENX4= "X" : G0SUB21 200: GOS 

UB208B0: GOSUB20000:PRINTX« 

17355 IFQQi= C"THENX*= 2' :GOSUB21200:GOS 
UB208B0: GOSUB20000 : PR I NTX*: GOTO 1 7370 

17356 IFQQi= M" THENG0SUB21 200: GOSUB20B00 
: GOSUB20000: PRINT' 1X2 :GOT0l 7370 

17360 GOSU821200:GOSUB20S00: GOSUB20000:P 
RINTQOt 

17370 Xt= ":NEXTII 

17388 X = 14: Y=22: GOSUB20000: PRINT "[ REU3 T 
RYK EN TflST "rGETQi: [FQ* = " 'THEN173BB 
17400 NEXTI:GOTO10200 

18000 : :PRINI' [ CLR3"!X = tl; Y=2;GOSUB20B00 
:PRINT"EREU1 LOftD DIU . FILER " 

TB030 S=0B:Y=y!GO5UB2000B:PRINT''2> LOftD 
ENKEL TRCKKER KASSETTE" 

18040 X=06:Y=10:GDSUB20000:PRINT 3> LOftD 

SYSTEMRC KKER DISKETTE" 
18050 X=B6: Y= 1 2: GOSUB20000: PRI NT '4> LOAD 

SYSTEHRCKKER KftSSETTE' 
18180 X=06: Y=14:GOSUB20000:PRINT 0> HOUE 
DMENU :X=0:Y=20: GOSUB20000: PRI NTSTi 
19120 X=ll:Y=22:GOSUB200B0:PRINT'EREU3 I 
NDTflST UflLG 0-4 " 
18130 GETQi: IFQ»= ' "THEN18130 
18140 Qx-UALCQ*3: I FQ* =0THEN102B0 
18150 DNO^GOTO 1 8208 , 1 8386 .18400.1 8580 
18200 : : GOSUB20600: X -06: Y=22: GOSUB20B00: 
PRINT "E REW3 INDTflST FILE NPW ":X=25:Y=2 

2:GOSUB2B000: INPUTNA* 
18225 0PEN2.8.15 

18230 GOSUB20600:OPEN1 .8.2/ 0: +NR* + " .S. 

R" 

18231 INPUT*2 .^1* ,B* 
1BZ32 IFfl*="BB THEN10235 

18233 X=6:Y=22:GQSUB20080:PRINT"EREU3 01 
SK ERROR : B* 

19234 CLOSE2:FORT = 1TD4000:NEXT:CLOSEUGO 
TO18000 

18235 INPUT *l.ERx: FORI =1T0ER»: INPUT" i .ER 
*C I 3: NEXT: CLOSE! :CL0SE2: GOTO10200 
18300 : : GOSUB20600: X =06: Y=22: GOSUB20000: 
PRINT-IREU] INDTmST FILE NAYN ;X=25=Y=2 
2:GOSUB?0000: INPUTNA* 

18330 GOSUB20600:OPEN1 .1 .8 .Nflt: INPUT*1 ,E 
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R*:Fu*, b1 .ER4CI 3: NEXT: CLOSE 

t: GOTO! 0200 

T8400 : :GOSUB28600:X=06:Y=22:GOSUB20000: 
PRINT'tREUJ I NOT AST FILE NftUN :X=25:Y=2 
2:GOSU828000: iNPUINfl* 
18410 UPLN2.8.15 

18115 &OSU620600:OPEN1 .8,2, 0: "tNfltt ' t S, 

R" 

18420 I NPUT*2 ,fl* P B* 
1842! IFP-* = '00"THEN18435 

18422 X=B: Y=22: GOSUB20000: PRINT "C REUJ DI 
SK ERROR: B* 

18423 CLUSE2: FORT ■ 1 rO4000: NEXT: CLOSE1 1 GO 
TO 18000 

18435 INPUTnJ ,SR*:FORI=lTOSRx: INPUT«1 ,SR 

*CI y. NEXT: CLOSEl:CLOSE2:GOTO10200 
18500 : :GU5iUB2BG00:X=06: Y = 22: GOSUB20000: 
PRINT'T REU 1 I NOT AST FILE NftUN ":X=25:Y=2 
?: GUSUB20000: INPUINfl* 

18530 GOSUB20600:OPEN1 . 1 .0 .Nfl*: INPUT«1 „S 
Rx:FDRl =1 TOSR*: INPUTnl . SR4 C I 3:NEXT:CLOSE 
t:GDTO10200 

19000 : : PR I NT '[ CLR] ' : X = 1 1 : Y=2: GOSUB20000 
:PRINT"[REU3 SftUE DIU. FILER " p 
15020 X=06:Y=6:GOSUB28000: PRINT 1> SAUE 
F.NKELTRCKKER DISKETTE" 

19030 X=06:Y=8:GOSUB20000:PRINT"2> SftUE 
ENKELTREKKER KfiSSETTE" 

19040 X=06:Y:10:GOSUB20000:PRINT"'3> SftUE 

SYSTEMRC KKER DISKETTE 
19050 X-06:Y=12:GOSUB20000:PRINT"4> SftUE 

SYSTEP1RL KKER KftSSETTE " 
19100 X=0G: Y=14:GOSUB2B000:PRINT"0> HOUE 
DHENU : X=0: Y=20: GOSUB20000: PRINTST* 
19120 X = ll:Y-22-:GOSUB20000:PRINT"'[REU] I 
NDTflST UftLG B-4 " 
19130 GETQ*: (FQ4-" 'THEN13130 
19140 Qx=UftLCO* ): IFQx=0THEN10200 
13150 ONO^GQTC 19200. I 3300, 13400.19500 
19200 : :GOSUB20600:X=06: Y=22:GOSUB20000: 
PRINT'tREY] INDTflST FILE NAUN :X=25:Y=2 
2:GOSUB20000: iNPUTNfl* 
19210 OPEN2.8.15 

19230 GOSUB20600:DPEN1 .8.2 . 00: "+NAi+" .S 
•W' 

19235 INPUT-2 ,fl* ,B* 

19236 1FA*= 0B"THENI5240 

19237 X=6: Y=22: GOSUB20000: PR J NT " [ REU] DI 
SK ERROR; "B* 

19238 CL0SE2: FORT=1TO4000: NEXT : CLOSE 1 : GO 
TO I 3000 

19240 PRINT»1 .ER*:FORI = 1 TOERx : PR INT" 1 ,ER 
*( I 3: NEXT : CLOSE I : CLOSE 2: GOTO 10200 
19300 : :GOSUB20600:X=06:Yr22:GOSUB20000: 
PRINFf REU] I NDTflST FILE NflUN ":X=25:Y=2 
2:GOSUB20000: INPUTNfll 

19330 GOSUB20600:OPEN1 ,1.1 .NflirPRINTsi .E 
Rx:FORI =1T0ER*:PRINT»1 .ERtCI 3: NEXT: CLOSE 
1:GOTO10200 

19400 : :GOSUB20680:X-0B: Y=22: GOSUB2B000: 
PRINT [REV] I NDTflST FILE NftUN ;*=25:Y=2 
2:GOSUB200H0: INPUTNfl* 
19410 QPEN2.8.15 

19430 GOSUB20600:OPEN1 .8.2, '00: *NA*+ " .S 
.W 

19435 INPUTS .ft* ,B* 

19436 IFA4r"00 THEN1944B 

19437 X=6: Y=22: GQSUB20000: PRINT' tREU] DI 
SK ERROR: B* 

1 9438 CL0SE2: FORT = 1 TO4000: NEX T : CL0SE1 : GO 
TO190G0 

19440 PRINTS .SRx;FORI=1T0SR»:PRJNTb1 ,SR 
K I y. NEXT: CLOSE 1 : CL0SE2: GOTO10200 
19500 : :GOSUB20600:x=06:Y=22:GOSUB20000: 
PRINT'T REU 1 I NDTflST FILE NfluN :X=25;Y=2 
2:GOSUB20000: INPUTNfl* 

19530 GOSUB20600:OPEN1 .1.1 ,Nfl*: PRINT«1 „S 
R"**: FORI = 1T0SR-*: PRlNTn l ,SR* C I 3:NEXT:CLQSE 
1:GOTO10200 



20000 ::RX=PttKC21 3 j: RY=PEEKC 21 4 3: PRINT 

f -!SU l : If r YO0THENPOKE2l4.Y-l:PRINT 
20020 P0KE21 1 .X : RETURN: PRINT' C HOfl] ; : JFY 
< >8 THENPOKE 214 ,RY- 1 : PRINT 
20110 P0KE21 1 .RX'.RETURN 

20200 : : X = CEftx- INTCERx/10 )x\ 0 )*3: x=X^-5: 1 
FERx-INTCERx/10 3*10=0THENX=35 
20220 IFQQ*= X THENX=X>1 
20230 IFQQ*= 2 THENX=X*2 
20240 RETURN 

20300 : : Y=LENCER*CERx 3 3+6: IFLENCER4CER* 3 
1>2THENY=Y*1 

20330 IFLENCER*(ER*3 3>5THENY=YM 
20340 IFLENfER*CERx))>8THENY=Yti 
20350 RETURN 

20400 ::ER*fERx 3=LEFT*CER*f ER* 3 . CLENCER* 

CER*3J-t ) 3: GOSUB20500: RETURN 

20SRB : : QQ* = : GOSUB20200 : GOSUB20300: GOS 

UB20008: IFERM-INTfERx^2 3x2=0 THENPRINT B 

LKJCREUJl 3SPC3C L TGRN3 ' : RE TURN 

20530 GOSUB20000: PRINT [GR33CREU1C3SPCJL 

LTGRNI : RETURN 

20600 : : X =0: Y=22: GOSUB20000: PRINT"[ 40SPC 
) : RETURN 

mm b|TAS?lFOt= -THEN20720 

20725 IFER4CI + n= THENRETURN 

20730 GOSUB28000: RETURN 

70800 ::Y = m-5: IF 1 1 >3THENY=Y+1 

20830 IFI I >6THENY:Y*-1 

20840 IF I I >9THENY=Y+1 

20850 RETURN 

ivrmi ^K^?r 200eB: ,FFL <0THENPR 

21030 IFFL=0THENPRINT fl6SPC3" 

21040 IFFL >0THENPR I NT "HELGflRDERING Mil': 

FORI=1TO500:NEXT 

21050 RETURN 

21100 : : IFQt=' IX OROi^ XI THENQQi= ft' 
21170 IFQ*= 12 QRO*: 21 THENQQ*= B" 
21 I 30 IFQ*= X2 0RQ4 : 2X THENQQ4? X" 
21 140 RETURN 

21700 = :x=8: I FQQt ="X" THENX =X+ 1 
21225 IFX4 = "X" THENX =X+ 1 
21230 IFQ0i='2 THENX=X^2 
21235 IFX*="2 THENX=X+2 
21240 RETURN 

21300 ::Y=LEN(SR*CSRHn*6: IFLENC SR* f SR* ) 
)>2rHENY=y+l 

21330 JFLENCSRtCSR^ 33>5THENY=Y*1 
21340 IFLEN(SRtCSRK)3>erHENY=Y*l 

itli fMh : Mmmm 2 M8E* F «-. 

2: GOTO2I430 
21430 FAM 

2 1 440 SR =SR*F ft X =29 : Y = 1 8: GOSUB20000 : PR IN 
T"fS/U]r7S/C]r S/H ' :X=29: Y = IB: GOSUB20000 
:PRINT [SyB] ftNTftL CS/B3 

Ii?^c X ^ : X s 28 : GOSUB20000: PR I NT C S/S U 7 
^r K ^i-? r4*J? 9: >* = 21 : GOSUB20000: PRINT [S 
fj li 7S/Z ][ S^*K J 

2 i? S 2 I FSR >288ftN0SR <>5 1 ?ftN[')SR<> 1 024 THENX 

-31 : Y = 20: GOSUB20000 : PR I NT TE JL I " 

21461 IF SR >28RftNDSR OS 1 2ftN0SR < > 1 024 THENS 

Rx=SRx-i :SRir SRv.»l ; = " " : FORI = 1 TO 1 500: NEXT 

2 1 490 I FSR >288flNDSR < >5 1 2ftNDSR <> 1 024 THENG 

OTOU310 

2 1 4 95 X a 3 1 : Y = 20 : GOSUB 20000 : PR I N T SR : RE TUR 

21500 ::SRiCSRx)=LEFT*CSR*CSRx).CLENCSRt 

CSRX33-1 3 3:GOSUB21600:RETURN 

2 1 6P0 : : QO* = " ' : G0SUB2 1 200: G0SUB2 1 300: GOS 

UB20000: IFSRx-lNT(SRK/2 3»2=0THENPRINT I B 

LK ]C REU3C 3SPC K L TGRN] ' : RETURN 

21630 GOSUB20000:PRINT [ GR3 JC R£U 3C 3SPC H 

21 740 X-30: Y = 20:GOSUB28000: PRINT "T 6SPC J 
:X=31:Y=20:GOSUB28000:PRINTSR:RETURN 
22000 ;:TE4=LEFT*[ TE* .LENC TE* 3-1 ): IFLENC 
TE4 1 = 1 rHENQO*=TE%: RETURN 
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/SVM IH.ENf TE * 3>2THENQQ* = 'H ' : RETURN 
27030 Qi:TF4:G0SUB21 100:04= CF5] : RETURN 

gPSI lFLEN(RE4f I I 3 3-3AN0RFJ4 = H~ THENRE IU 
RN 

23106 1FLENIRE4C II )3=3ANDCRE4 = (TORRE**" 
B 0RRE4= C 3THEN231 10 
231 10 IFSY*= 1 
E*="X : RETURN 



E4 = "B':RETURN 
23170 !FSY*="I 
E4 = 1 :RETURN 
23180 JFSY4= 1 
E* = "2":RETURN 
23200 IFSY*- 1 
E4 = 'C":RETURN 
23220 IFSVt: 1 
E4 = *fi :RETURN 



E4- X :RETURN 
23210 IFSY4='X 
Et- I : RETURN 
23260 IFSY4- X 
E4= C ! RETURN 
23270 JFSY4 = "X 

E4?'B :RETURN 

23290 IFSY4=X 

E4- 2 ! RETURN 

23300 |FSY*='X 
E4- 'X":RETURN 

23310 IFSY4? X 

E4= B :RETURN 

23320 IFSY4- X 

E*= fl :RETURN 

23340 IFSY4= 2 

E4 = "2* :RETURN 

23360 1FSYV-2 

E4- 1 : RETURN 

23370 IFSYt- - 2 

El = C : RETURN 

23330 IFSY4='2 

E4=* A :RETURN 

23410 IFSYl" 2 

E4^ 2 : RETURN 

23420 IF5YV-2 

E4= X : RETURN 

23430 IFSY*: ? 
E4='R" : RETURN 

23440 IF5Y4^'"2 
E4="B" : RETURN 

23490 IFEF-*r0AMnuM rHENGDSUB23600 

23493 : RETURN 

23500 : : IFQQi =CK4 CMA 3TMENSY4 =N04: RETURN 

2352P IFQ(J4=A AN0CK4CHA 3= 'B 1 THEN"SY4="X" 

:N84: 2 : RETURN 



23670 IFQQ* = B "ANDCK4CHA 3 = ~ C ANDRE* = X T 
HENRE*= 1": 6OSUB23700: RETURN 
23680 GUSUB23700:RETURN 
23700 IFN04 =SY4THENRETURN 



URN 



ANON0*= 


X 


ANDRE4= 


" 1 ' 


'THENR 


ANDN0* - 


X 


ANURL*- 


"X' 


THENR 


ANDN04= 


X 


ANDRE4 = 


e 


' THENR 




x 


ANDRE 4= 


■ i~ 


\ HE NK 


ANUN04 - 


"2 


ANDRE 4= 


2 


'THENR 


"ANON04 : 


2 


ANDRE 4- 


" 1 4 


THENR 


' ANCN04= 


*2 


ANDRE*= 


A 


THENR 


"ANON0* : 


2 ANDRE *= 


C' 


THENR 


ANUN0S b 




ANDRE* - 


T 


' THENR 


ANON0* i 


*i 


ANDRE *= 


X 


THENR 


ANON0*= 


"V 


' ANDRF 4 = 


6 


THENR 


ANON04= 


Hf 1 


ANDRE 4= 


C 


'THENR 


ANPN04 - 


2 


ANDRE 4= 


X 


THENR 


ANPN04= 


2 ANDRE 4 = 


2 


THENR 


ANUN04= 


2 


ANDRE 4= 


A 


' THENR 


'ANON04= 


2 


'ANDRE 4 = 


B" 


'THENR 


ANPN04 = 


'V 


' ANDRE * = 


T 


THENR 


ANPN04= 


I 


ANDRE* = 


"2 


THENR 


ANPN01 i 


" L 


'ANDRE** 




THENR 


AN.ON04- 


*f 


ANDRE *= 


C 


THENR 


ANUN04: 


K 


'ANDRE 4= 


X 


THENR 


ANPN04- 


'X' 


HNURE 4 : 


'2 


THENR 


ANON04? 


X' 


'ANDRE 4* 


"B 


THENR 


"ANDN04= 


X 


ANDRE 4= 


"fl 


THENR 



;tukn 



ANDCK4tl!fn= 'C THENSY4- T 



23540 TFUU* =**B? "ANDCK4 f HA 3 = A THENSY4^"2 ' 
: N04 ="X ' : RETURN 

23550 IFQQ4="B 'AN0CK4CHA ) = "C"*THENSY4=" 1 * 
:N0*=X": RETURN 

23560 [FUQ4 - "C "AN0CK4CHA 3 = " A ' THENSY4="2" 
:N0*= 1 ' : RETURN 

23570 IFQQI: "C 'ANDCK4CHA 3-*' B - THENSY* = "'X~ 
:N0*=' t : RETURN 
23500 RETURN 

23600 IFQQ4 -CK4CHA 1ANDN04OP1 [D4 C SR4C 0 3 . 1 
I .MTHENGD5UB2 3700: RETURN 

23620 IFQQ* = B ' ANPCK4CHA 3="fl ANDRE*="X ' T 

HENRC4='2 ': GOSLB23700: RE TURN 

23630 IFQQ4= C ' ANDCK4CHA )= ' A "ANDR£4 = " 1 "T 

HENRE4= *2 ' t GOSUB23700: RETURN 

23640 IFQQ4 = "A "ANDCK4CHA )= B ANDRE4 = "2" T 

HENRE*="X 1 : GOSOB23700: RETURN 

23650 IFQ04= C ANPCK4CHA 3= B' ANDRE4= ' 1 "T 

HENRE4 = '"X' , :GOSUB23?00:RETURN 

23660 IFQQ4= A 'ANPCK4CHfl3- ' C ANDRE4 = -'2"T 

HeNRe4= * 1 : GOSUB23700: RETURN 



]FQQ4= 


A ANPRE* = 


T 


1HENRE4= 


'X' 


= RET 


IFQQ4- 


A"'ANPRE* = 


X' 


TH£NRE*= 


1' 


:RET 


JFQQ* : 


B" ANPREt = 


"I - 


THENRE*=' 


'2-SRET 


1FQQ* = 


"B ANPRE* = 


2' 


THENRE* =' 


1 


:RET 


IFQQ*=' 


'C*' ANDRE* = 


X "THENRE* - ' 


2' 


:RET 


IF0Q4 - 


C" ANDRE*= 


2* 


THENRE* = 


X" 


s RET 



URN 



URN 



URN 

2374 

URN 



URN 
23760 RETURN 

24000 REftxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

21001 REH GENERERING AF CK* UyUGARD.KP. 

21003 RZWxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

21010 IFCK*tII K>" "THENRETURN 

21020 FORJ = lT0SK-^:AA4=rlID4CSA4CU D.J.U 

21030 IFAA* <>AB*ANOJ > I THENAA* =AA*^AB4: GO 

SUB21103 

filxf5?«ETURN 
24100 IFAA*=" IX 0RAA4 = '*Xl"THENCK4(n D= "fl 

21110 IFAAl = "t2 0RAA4=-2r'THENCK4(lI 3= 'B 

2H20 IFAA4^'X2'QRAA» = "2X"THENCK*(II3=-C 

24 1 30 AA4 = " " : AB*= ; J =SK»; RETURN 

27000 PRINT "[ CLR]" : E=0:F=0: G=0: H=0^ FORI = 

1T013:GC I )=0:NEXT 

27010 PRINTCHR4C 19 DtCHR4C 18 ]"UNDERS0GEL5 
E AF ENK.RK.NR.:" 

27020 GOSUB27900: IFER«=0THEN10200 

27030 FORC = 1 TOERx: SU =0: X=30 : Y=0: GQSUB280 

00:PRINTC 

27040 FORD=lTDl3:TE4=ni04CER*CC).D.l DlGE 

4=NID*CER*(0).D.l 3 

270S0 IFTE*:GE4THENSU=SU-H 

27060 NEXT 

27070 IFSU = 13THENGCSU)=GCSU)*-i:E=E+l:Y=l 
7= X = CE+4 3AND31 : GOSUB20000: PRINT"x" 
2708B IFSU=12THENGCSU3-GCSU)tl ;F=Ftl;Y=l 
6: X = CF+4 3AND3 1 : GOSUB20000: PR I NT "x " 
27090 IFSU = UTHENGCSU)?GCSU3tl :G=Gti:Y=i 
5: X^CG+4 3AND31 : GOSUB20000: PRINT"* " 
27100 IFSU=10THENGCSU)rGCSU3tl :H=Htt:Y=l 
4: X=CH*4 3AND31 : GDSUB20000: PRINT"* " 
27110 IFSU<10THENGCSU3^GCSU3ti; 
27120 1FSU<10THENGOSUB27150 
27130 IFSU<10THENY^SU+4;X = CPt4 3AND31 : GOS 
UB20080:PRINTCHR*C18 3 , " 
27140 NEXT 

2714S X=12: Y=22: GOSUB20000: PRINT tREU] T 
RYK EN TAST " 

27142 GETQ4: IFQ* = " "THEN27142 

27143 PRINT "[CLR]' :X=11! Y=l : GDSUB200B0: P 
R]NT "£REU] RESULTftT" 

27144 FORI =0TO 1 3: X=5: Y=4+I : GOSUB20000: PR 
INT'ANTAL RK . MED "I 

27145 X=23i Y=4i-I : GOSUB20000: PR INT " RIGTI 
GE: GC I J:NEXT 

27146 X=0: V =20: GOSUB20000: PR IN TST4 

27147 X=12: Y=22: GOSUB20000: PRINT CREU] T 
RYK EN TAST " 

27148 GETQl: IFQ* = ""'THEN27430 

27149 GOTO27200 

27150 IFER* <= 108THENP=GCSU ): RETURN 
27160 IFERX>100THENP=GCSUl/INT£ERx/100 3* 
.3: RETURN 

27200 IFSR*-0THEN102B0 
E AF SYS.RK.NR.:" 

27230 FORC= 1 TOSRx; SU =0: X -30: Y =0: GOSUB200 

00:U=0:GOTO27500 

27240 IFK>1 3THENRETURN 

2724 J U=U*1 : X = 30: Y=0: GOSUB20000: PRINTW 
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27242 £U=B:FORD=1T013: TEi=MI0tCJA*tO J. JA 
*CD),1 3:GE4=niD4.CER4C0 3.D.l 3 
27250 lFTEi=GE*TH£NSU=SUTi 

YFS J = 13THEN6 C SU 3 =G( SU 3+ 1 : E =Et 1 ; Y = 1 
7: X = CE+4 3P.ND31 : GQSUB20000: PRINT "x" 
272B0 1FSU=12THENGC SU 3 =GCSU 3*1 : F-Ft 1 : Y = l 
6: X =CF-*-4 3P.ND31 : GOSUB20000: PR INT "x" 
27290 IFSU=11THENGCSU3=GCSU3*1 :G=G+1: Y=l 
5: X=CG+4 3RND31 : GOSUB20000: PRINT 'x" 

27300 IFSU= 10THENGC SU 3 =GCSU 3 + 1 : H=H+ U V*1 

4: X = CM+4 3AND3 1 : GOSUB20000: PRINT'x" 

273 1 0 I FSU< 1 BTHENG C SU 3 =G [ SU 3+ 1 : 

27320 IFSU<10THENGOSUB27350 

27330 IFSU<10THENY=SU+4:X=CP+4 3AND3l:GOS 

U820000:PRINTCHR*C183" 

27318 RETURN 

27350 P=GCSU 3/10+.9: RETURN 

27370 NEXTC 

27371 X = 12:Y=22:GOSUB20000:PRINT'[REUJ T 
RYK EN TAST " 

27372 GETQ4: EFQ* =" " THEN27372 
27400 PRINT "T CLR] " 

27402 X = tl: Y= 1 : GOSUB20000: PR [ NT" t REU3 R 
ESULTAT" 

27405 FORI =0TO13:X=5: Y=4f I : GOSUB20000: PR 
INT 'ANTAL RK - "ED " I 



27106 X=23: Y=4+I : GOSUB20000: PRINT" 
GE: GCI ):NEXT 



RIGT1 



274 10 X=0: Y=20: GOSUB20000: PRINTST* 
27420 X - 1 2: Y = 22: GOSUB20000: PRINT'"[ REU3 T 
RYK EN TAST 

27430 GETQt: [FQ* = " THEN27430 
27410 GOTO10200 

27500 JFl=0:FORK = lTOl3:jfli(K)=nlQtCSR*[C) 

•K.1'3 

27510 IFJfl4CK] = ' A"THENJA$(K]="lX" 
27520 IFJF»tCK) = "B"THENJAiCK3 = "12" 
27530 IFJRtCK ) = • C THENJAHK 3 = "X2" 
27540 IFJR*CK 3= ' H 'THENJA4CK 3= 1X2 
27550 NEXT* 

27600 FORL=0TO13: JA*CL 3=1 : NEXTL: K=l 

27605 GOSU827240: Jflssf 1 3-Jflxtl 3+1 

27610 IFJftxCi 3>LENC JAiCl 3 3THENJftxU ) = l:j 

AXC2 3sJAX(2 3*l:GOTO2?620 

27615 GOTO27605 

27620 IFJfixC2)>LENUftt.C2 3)THENJAxC2)=I: J 
A*C 3 3 = JA*( 3 3 » I : GOTO 27630 
27625 G0T0275B5 

27630 IFjAxC3)>LENC JAif 3 3 3THENJA)X(3 3=1 : J 
PxC 4 )=JflxC4 3fl : GOTO 27640 
27635 GOTO27605 

276C0 :FJAxt4 )>LENC JP.4C4 3 3THENJflxC4 3=1 : J 
Axt5 3=JAxC53+l : GOTO27650 
27645 GOTO27605 

27650 IFJftxC5 3>LENt JAVC5 3 3THENJflx(5 3=1 : J 
A*C6 3=JAxC6 3+1 : GOTO 27660 
27655 GOTO27605 

27660 IFJRXC6 3>LENC JA* C6 3 3THENJflxC6 3 = 1 : J 
AXE 7 3=JA*C7 3+1 : GOTO27670 
27665 GOTO27605 

27670 IFJAxC7 3>LENC JA*C7 3 3THENJflxC7 3 = 1 : J 
Ax[ B 3 = JA*C8 3+1 : GOTO27680 
27675 GOTO27605 

27680 IFJP.nC8 3>LEN( JA*C8 3 3THENJAKC8 3 = 1 : J 
A*C 9 3=JAx(9 3 + 1 ; GOTO27690 

LENC JAi C3 3 3THENJP.XC9 3 = 1 : J 
A*t 10 3=JA*C 10 )t 1 : GOTO27700 
27695 GOTO27B05 

27709 IFJAxfi0 3>LEN(JA4C10 3)THENJAxC10 3 = 
l: JA*C 1 1 )=JA*( 113+1 :GOTO27710 

27705 GOTO27605 

27710 IFJAxUl 3>LENCJA*(H 3 3THENJAX C 1 1 3 = 
l: JAXC 12 3=JAx( 12 3+1 : GOTO27720 

27725 GOTO27B05 

27730 IFJP.xU33>LENCJAlCI3 3 3THENJA*U3) = 
l:GOTO27370 



27735 GUIU^BIflb 

27740 GOTO27610:TV=TU*1: £FTy =13THEN27370 
27900 X =4 : Y = 3: GOSUB20000: PR I NT C C/f\ H 4S/* 
C3CC/R3C4S/C3CCyR3C4S/C]CC/R3C4S/C3CC/RJ 

27310 FORI=4T017:X=i:Y=l: IFI >13THENX=0 
27920 GQSUB20080:PRINTI-4"CC/U3-:NEXT 
27930 X=0: Y = 20: GOSUB20000; PRINTSTt: RETUR 
N 

28000 := PRINT C CLR]" ;X=0:Y=0:GO5UB20000: 

PRINT'CREU] KUPON NR. KU* 

|803fl^X=0; Y=2: GOSUB20B00: PRINT"! 7S/C3C C/ 

53&38*X^#9<5?GOSUB20000:PRINT"RK.NR. CS 
/B3 It 2SPCJ2C 2SPC J3[ 25PC34C 2SPC ]5[ 2SPC36 
C2SPCJ7C2SPC38C 2SPC39 10 [SyBJ" 
28100 X=0:Y=4:GOSUB20000:PRINTKAf1P NRC S 
/B11X21X21X21X21X21X21X21X21X21X2C S/8 3 
28120 X=0iY=5;GOSUB20000; PRINT l?SsZK$/ 
+ ]C30S/C][C/W3" 

28130 FORY=6TO22:X-8:GOSUB20000;PRINT' [ R 

CBLK3C3SPC][GR3][3SPC][BLKJ[3SPC]":NEXT: 
PRINT t LTGRN 3 

28170 X=l :FORY=eTQB:GOSUB20B00:pRINTY-5 
t 3SPC3C S/-B 3 " SPC C30 3 [ S/B 3 " : NEXT 
28380 X=0:Y = 9:GD5UB20000: PRINT 'C7S/C3CS/ 
♦ 3C30S/C3CC/U3" 

2B190 X-l :FORY=10TO12:GOSUB20000:PRINTY- 
6 C3SPCK S/B 3 SPC C 30 3 t SvB3 - : NEXT 
28200 X=0: Y = 1 3: GOSUB2B000: PR INT "[ 75/C3C S 
/+H30S/C3CC/U]*' 

28210 X=l :FORY= 14T01 6: GOSUB20080: PFJNTY- 
7"C 3SPC3C S/B 3 "SPCC30 )"[ S/B3 " : NEXT 
2B220 X=0: Y = 17: GOSUB20000: PR INT "C 7S/C1C S 
/+]r30SyC][C/W3 ■ 

28230 X=0: FORY= 18T021 : GOSUB20000: PR1NTY- 
9 [3SPC)[S/0] SPCC 30 3 [S/B]' : NEXT 
28240 X=0: Y = 22: GOSUB20000: PR I NT C C 
/E3[30S/C][C/X3 ' 
28250 RETURN 

23000 : : X=8: Y=22: GOSUB2800a: PRINT C REU] 
SLET ALT - ER DU SIKKER : X=35: Y=22: GOSU 
B2000a:PRINT"N" 

29030 X=33: Y =22: GOSUB20000: I NPUTQi 
29040 [FQ4V THEN29040 

END 58 1FLEFT ' iCQ * - 1 3 = " J "THENPRINT"[ CLR3 " ! 

23060 GOTO10200 

29500 REr? KOOERTERINGS RUT 

29505 H=L£NCHEtf 13 3 

29510 IFH>176THENC*CI 3=ni 04C HE* C I 3.177.H 
-1?63:PRINT«1 .C1CI 3 
23515 H2=LENCCiCI 3D 

29520 IFH>098THENB4C I 3=nl 0*CHE4 C I 3 .083 .H 
-H2-89 3:PRINT»1 .B»CI 3 

29530 IFH>88THENA*C I 3=LEFT*CHE4 CI 3 -88 3: P 
RINTnl .A4CI 3 

29540 IFH<=88THENPRINTb1 .HEiC I 3 
29550 RETURN 

29600 RE(1 KOUERTERINGS RUT 
29605 H=LENCHA*C I 3 3 

29610 IFH>176THENF*CI 3=niD4CHA*t I 3.177.H 
-1763: PRlNTwl .F*CI 3 
29615 H2-LENCF4C I 3 3 

29620 IFH>08BTHENEtCI 3=ni04CHA4(I 3.083. H 
-H2-BB3:PRINT»1 .E*C1) 

29630 IFH >88THENOtC I 3=LEFT*CHA4C I 3 .88 3: P 
RINTnl .Did 3 

29640 IFH<=88THENPRINT«l .HA*C 1 3 
RETURN 

W^flERWPuT-I.HEiCn.-RETURH 
IFREXM76THENINPUTHI ,C4 

iNPurm .B* 

INPUT-1 .A* 

HE1CI 3=At+Bt+C*: RETURN 
REn KONUERTERING 

IFREx<=88THENlNPUTsl .H^ICI 3:R£TURN 
IFREx>176THENINPUT«l .F4 

iNRffH;H 



29650 

sag 

29710 
29720 
29730 
29740 
29B00 
29B05 
29810 

29840 HAifi 3=6**Et+-F*: RETURN 
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Indtastningsvejledning 
for Commodore 64 & VIC-20 




De programmer, der trykt er i RUN 
ser lldt andertedes ud end du er 
vant til at se pa din skaarm eller prin- 
ter. Del s k yld es. at vi har anvendt et 
ssertigt print prog ram, der »oversaet- 
ter« de grafiske tegn til ©t mere tge- 
seligt sprog. Vi beder dig dertor lae- 
se indtastningsvejledningen onv 
hyggeligt igennem, tor du starter 
med at indtaste dine programmer. 



Alte de grafiske tegn er i vort printpro- 
gram sat mellem to kantede parente- 
ser, og du skal saledes IKKE indtaste 
disse parenteser eller det, der star 
imellem. Duskal trykke pa den eller de 
taster, der svarer t il del . de r er skrevet 
mellem parenteserne iflg. skemaet 
her pa siden. Star der et tal umiddei- 
bart efier den lerste kantede pa rentes 
skal de pagaeidende taster trykkes det 
antal gange. der star skrevet. 
Star der SPC mellem de kantede pa- 
renteser. trykker du pa mellemrums- 
last. Star der et tal foran SPC. trykker 
du tasten det antal gange. 

Du vil ogsa kornme ud for. at der 
imellem parenteserne f .eks. star S/A - 
i sa tilfceider trykker du pa. SHIFT-ta- 
sten og A. Havde der i stedet staet C/A, 
skulle du have trykket pa Commodore- 
tasten og A. Ogsa i disse tilfselde, kan 
der vaere et tal . der angiver antal gan- 
ge. 



Kontrolsum 

I programmerne til Commodore 64 er 
der knyttet et sakaidt kontrolsums- 
program, der kan lette fejlfindlng ved 
indtastning. Fremgangsmaden ved 
brugen af dette program er falgende: 

1. Du starter med at indtaste kon- 
trolsumsprogrammet og gemmer det 
til fremtidtg brug. 

2. For indtastnlngen af de evrige 
programmer sla rter du med at indlaase 
kontrolsumsprogramme!. 

3. S£ indtaster du dit program. 

4. Tag altid en kopi af dit program, 
indendu tester det. 

5. Skriv GOTO 62000 og besvar de 
sporgsmal, som programmet stiller. 

6. Sammenlign de kontrolsummer 
med de, der er trykt i bladet og find de 
linier, hvor du evt har tastet tejl. 

Almindelige rad. 

Veer meget omhyggelig med ind- 
tastningen. og specielt nar det drejer 
sig om desakaldte DATA-linier. En fe]l i 
disse linier kan forarsage. at compute- 
ren »gar i baglas«og du bliver nedt til at 
slukke lor den. 

Derforendnu en gang: tag en kopi af 
dit program, inden du korer det. 

Hvis computeren giver en fejlmed- 
delelse i en linie. hvor der findes en 
READ-kommando, kan du vasre nas- 
sten sikker pa, at fejlen IKKE skal fin- 
des i den pagasldende linie, men der- 
imod i en al DATA-linierne. 

Hvis du indtasler en programltnie, 
der fylder to linier pa. stermen fuldt ud, 



(80 tegn) vil cursoren springe ned i den 
tredje linie. Et tryk pa RETURN-tasten 
her vil IKKE indlasse den pagaldende 
linie. Du er i sa tilfaalde nadt til at trykke 
cursoren en eller to linier op, for du 
trykker p£ return. 

Programmerne i RUN 

Programmerne, der er trykt i RUN, er 
testet og kan funktionere. Da program- 
merne mange gange er ret komplice- 
rede, kan vi ikke 100% udelukke, at et 
program i en speciel situation vil kunne 
optare sig uventet. Dette er dog ikke 
normalt, og i sa tilfselde vil redaktionen 
naturligvis vaere taknemmelig for en 
SKRIFTLIGorientering. Dehmod skul- 
le der ikke lasngere vasre nogen tek- 
nisk tejlrnulighed i proceduren fra 
diskette/band til trykning i bladet. 
Eventuelle rettelser og korrektioner til 
programmer eller artikler i RUN vil sa 
vidt muligt blive bragt i det efterfalgen- 
de nummer under mbrikken RUNA- 
MOK. vi bede r I asserne om I KKE at ret- 
te telefonisk henvendelse om disse 
ting. 

RUNs redaktion kan heller ikke pa- 
tage sig telefonisk at vaare laaserne be- 
hjselpelige med fejlfinding ved indtast- 
ning elter tvivlssporgsmal om pro- 
grammerne i det heie taget. Hvis man 
har lasst sin brugervejledning og falger 
denne vejledning, skul le indtastningen 
af programmerne Ikke give de store 
problemer. 

God fornojelse. 
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Nardu ser 

cclr: 

ceo j 

CCN] 
CCU] 
CCH] 
CREU]" 

coff: 

C &LK3 
C HI-ITU 
C RED J 
[CYN3 
CPUR] 
CGRNJ 

cblu: 

t YEL3 



trykkerdu 



SHIFT 



SHIFT 



SHIFT 



I CTRL 



CTRL 



: CTRL 



I CTRL 



CTRL 



CTRL 



CTRL 



CTRL 



CTRL 



CLR/HOME 



CLR/HOME 



CRSR ▼ 



CRSR < 



CRSR ► 



Skserm 

□ 

□ 
H 
II 

a 

s 



n 
□ 
□ 

S3 



ORG] 

BRN3 

LTRED] 

GR1] 

GR2] 

LTGRN3 

LTBLU ] 

GR3] 

F13 

F2D 

F3] 

F4] 

F5J 

F63 

m 

F8J 



m 
m 

EE 



SHIFT 



SHIFT 



SHIFT 



□ 



m 

CD 



f5 



□ 



E 
■I 

□ 



IB 
II 

a 
■i 



SHIFT 
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62030 REM KONTROLSUfl PROGRAM 

62010 tfOSUB 62050 

62020 GOTO 62200 

62030 IF FO=0 THEN 620-20 

62010 END 

62050 DEFFN DEEKCXi = P£EKCXH256*PEEKCX 
62060 DATA *** 

2? 0 032°019 1 65 ' 25? ' 1 66 ' 253 ' 1 33 >020 ' 1 34 ' 0 
5^2^013 l66 ' ?l6 ' 160 - 001 .177.095.133.2 
95 8 f 33°253 ?0B ' 1 7? • OT5 • 1 33 • 252 .200 . 1 77 .0 
B2100^nglA 200.169.000,133,251 .177,095,2 

62110 DATA 101 .251. 700, 208,714, 096 
62120 PPTA -1 1 ' 

62130 AO - 52992 
62M0 RESTORE 

62150 READ Ti: IF TKVW THEN 62150 
62160 READ T 1 IF T>=0 TMQJ POKE AD.T i 
AD = AD-*T : GOTO 62160 

PRINT "tCLRJMUOR 0NSKES CONTROL SUn 
P KIN T ET: 

62180 INPUT"TU/nONlTOR^0 PR]NTER=4 PLOTT 

er-6 * neu 

62130 RETURN 

62208 RF.n DO 1NITALISATION 

62210 FL = 0 j INPUT "F0RSTE LINE i FL 

! IF FL<0 THEN RETURN 

62220 LL = 65536 : INPUT "SIDSTE LINE \* 

EL:PRINT"CCLRr 
62238 IF DEU>0 THEN OPEN l.DEU 



POKE 



62240 f-N = FL : C = 0 : CI = 0 
62250 POKE 252,LN-JHTCLN/256JW5e 
253.LN/25G 

62760 SYS 52992: GS=f J E£K(251 ]: LN=FN0EEKC2 
52 HI 

622.70 Ti = LEfTiLSTRStLN-lJ+-C6SPCJ",6> 

LEFT*CSTR*CCSH"C?SPC3-.7J 

62260 IF DEU-0 THEN PRINT Ti; 

62290 IF DEU>0 THEN PRINT*! .Ti; 

62300 IF DEU=0 THEN C = C+l : IF C>=3 TH 

EN PRINT C = 0 : CI = CI ♦ 1 

62310 IF OEU>0 THEN C = C+l : IF C>=3 TH* 

EN PRINT*! : C : B : CI = CI t 1 

62320 IF IN<=LL AND PEEKC254 J THEN 62250 

62330 IF DEU>0 THEN PRINT*1 : CLOSEl 

673-10 END 



CONTROL SUn 



67000 


5 


62010 


170 


67020 


163 


B7PI3B 


177 


62040 


120 


67050 


173 


62B60 


33 


67070 


30 


62080 


38 


62090 


46 


67100 


31 


62310 


14 


67120 


1 


62130 


130 


62 J 40 


140 


62150 


l£? 


67160 


79 


B2l7fc 


65 


62180 


727 


62190 


142 


62200 


58 


62210 


47 


62220 


199 


62230 


77 


62240 


13 


62250 


207 


62260 


255 


62270 


109 


62280 


191 


62290 


250 


62300 


111 


62310 


161 


62320 


197 


62330 


38 


62340 


128 
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en DUQNnt co c 

I U l\ I 1 1 1 1 iULU\ L 



a a a 



Kobenhavn 



FONA COMPUTER CENTER 

mum, 4 sal. 
Ostergade 52 
100* Kobenhavn K 
Tort 01-144002 

FONA 

Ostergade 47 

1 100 Kobenhavn K 

T-ell 01-159055 



FONA COMPUTER CENTER 

Skindergade 41 
1 159 Kobenhavn K 
Tall 01- 110707 



FONA 

Vesiertirogade 62 
1620 Kobenhavn V 
Telf . 01-249300 



FONA 

Ql Kongevej 115 
JB50 Kobenhavn V 
Tetf 01-210893 



Storkobenhavn 



DATACARE 

Tarnvej 151 
2610 Rodovre 
Telf.: 01-705858 



FONA 

Falkoner Alio 58 
2000 Fradenksbarg 
Telt 01-352122 



MIBOLA MIKHOOATA 

Bsierbrogade 11/ 
2i00KBbenfiavn 0 
Tolf 01-183366 



FONA 

Oslerbrogade B0 
2100 Kobenhavn 0 
Telf 0M21010 



FONA 

Norrabrogade 34 
2200 Kobenhavn N 
Telt. 01-377788 



FONA 

Narrebrogade 174 
2200 Kobenhavn N 
Telt 01-830345 



FONA 

Amagerbrogade 49 
2300 Kobenhavn S 
Tell 01-572131 



FONA 

Amagerbrogade 126 
2300 KoDenhavr* S 
Telf 01-553600 



FONA 

Sundbyvester Plads i -3 
2300 Kobenhavn S 
Taft. 01 •559662 



FONA 

Frederlkssundsvei 38 
2400 Kobenhavn NV 

Tall 01-190166 



LAMIFI DATA 

• ■-• i • 33 
2SO0 Valby 
Tolf. 01-163299 



FONA 

Valby Langgode 56 
2500 Valby 
Tail ; Ql -163045 



FONA 

Hovedv-ejen 65 
2600 GlOStrup 
Tell 02-457077 



FONA 

Rodovre Centrum 131 
2810 Rodovre 
Tall. 01-411777 



FONA 

CtTy 2 ■ 206 
2630 Taslrup 
Telf 02-521525 



POULSEN COMPUTERCENTER 

City 2 - 304 
2630 Taslrup 
TbH. 02-990977 



FONA 

ISflOj Bycenier 32 

2635 Isho) 

Tell 02-730233 



FONA 

Hvtdovre Stationscenter 37 
2650 Mvidovre 
Telf .-. 01-471621 



FONA 

StiandmarKavei 20 
2650 Hvidowre 
Tetf. 01-490711 



FONA 

Greve Center 88 
2670 Greve Strand 
Tell 02-900455 



FONA 

Hundie Siorcenter 36 
2670 Greve Slrand 
Tell : 02-900790 



JM-OATA 

Sandbakken 27 
2680 Solrod Slnmd 
Telf 03-144573 



FONA RADIO A.-S 

16 

Ftodeokssundsve) 330 
2700 Bronaho) 
Telf. 01-267000 



FONA 

Fredenhssundsvej 154 
2700 Bransho) 
Tell 01-262728 



FONA 

Jernbaro AHe 39 
2720 Vanlose 
Tetf. 01-743518 



FONA 

Henav Bygade 2B 
2730 Heriev 
Tetf 02-946787 



FONA 

Centrumgaden 26 
2750 Balierup 
Telf 02-654455 



FONA 

Lyngbv Storcenter 38 

2300 Lyngby 
Telf 02-871 134 



FONA 

Soborg Hovedgade 56 
2860 Soborg 
Telf 01-561765 



FONA 

Slrandvejen 161 
2900 Hellerup 
Teff 01-611422 



FONA 

Hovedgaden 14 
2970 Horsholm 
Tetl.: 02-864166 



NordsjaeMaRd/Bornholm 



BO-L DATA 

Set. Olafgade 47 
3000 Hetengor 
Te»: 02100211 



FONA 

Stengade 53 
3000 Helsmgor 
Telf 02-210918 



FONA 

Sloisgade 25 
3400 Hilierod 
Telf. 02-26Q133 



BO-EL DATA 

Tamsbo'gvej 19 
3400 Hilterod 
Telf 02-253131 



FONA 

Farum Bytorv 1 1 
3520 Farum 
Telf 02-955038 



FONA 

Havnogade 21 A 
3600 Fradertound 
Telf 02-311515 



Syd- og Midtsjaelland 



FONA 

Algade 12 
4000 Roskildo 
Tell. 02-366633 



QATAR INGEN 

Tune Central 
Amestien 12 
4000 Roskilde 
Tell 02-139100 



FQNA 

Vestsjaeliflnds Cenlar 15 
4200 Slegei5e 
Tetf . . 03-520916 



FONA 

Ahlgade 61 
4300 Holb»k 
Tell : 03-437510 



FONA 

Norregade 1 

4600 Koga 
Tell 03-650088 



FONA 

Sci Poders Klrkeplado 1 
4700 Nsestved 
Telt. 03-727122 



Fyn med omliggende 
oer 



FONA COMPUTER CENTER 

Vestergade 61 
5000 Odense C 
Telt 09-125808 



FONA 

Tanjp Con tor 
5210 Odense SG 
Tell 09-160123 



FONA 

Rosenaardscentret 34 
5220 Odense SO 
TeH.: 08-169755. 



FONA 

Voidgade 7 
5700 Svendborg 
Toil : 09-211785 



Vest- og Sonderjylland 



U.I.B ELECTRONIC A DATA INC. 
ApS 

UHsvHngsvei 3 Acca&etorvet 
3520 Farum 
Telt 02-955170 



FONA 

HoldgKorsgade 2 
6000 Holding 
Telt. . 05-527755 

FOTOHUSET AJS 

Sondergade 4 
6000 Kolding 
Telt ; 05-520044. 
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FOTOHUSET A/S 

Bispegade 7 
6100 Hadersiev 
TeH. 04-521319 



FOTOHUSET A/S 

Norrecon 19 

6200 AbenrS 

Tetl 04-626601 



FONA 

Ramsherretl 41 A 
6200 Abenra 
Telf 04-622844 



FONA 

69 

Perlegade 30 
6400 SondGfborg 
Tell 04-421013 



FOTOHUSET A/S 

Perleqade 43 
6400 Sonderborg 
Tell 04-423265 



FONA 

Kongensqade 60 
6700 Esbjerg 
Telf.: 05-190133 



Midtjytland 



FONA 

Gothersgafle 12 
7000 Fredencia 
Telf.: 05-922955 



FOTOHUSET A/S 

Goinersgade 19 
7000 Frederick 
Tetf 05-922454 



FONA 

Norregade 29 G 
7100 Vejle 

Tort 05-827288 



FOTOHUSET A/S 

Rftdhusiorvet 2 
7100 Vejle 
Telf 05-822337 



FONA 

Bredgade 17 
7400 Homing 
Tfllf 07- 124455 



FONA 

Norregade 30 
7500 Holstebro 
Tolt 07-425611 



Osljylland 



FONA COMPUTER CENTER 

Banegdrdsgade 16 
BO00 Arhus C 
Tell 06-132222 



FONA 

Guldsmedcgede 15 
BO0O Arhus C 

Telf. 06-122777 



FONA 

M P Bnjunsgade 43 
8000 Arttus C 
Tell 06-131867 



FONA 

Scindergade 15 
flOOO Arhus C 

Tell • 06-131724 



FONA 

City Vest 243 
6220 Brobrond 
Tell 06-253O11 



FONA 

Sondorgadt! '7 
B600 SUKoborg 
Tell 06-B25733 



FONA 

Sonde rgade 
8700 Horsens 
Talf .: 05-628000 



FONA 

Scf. Mathras Marked 305 
8800 Viborg 
Telf.. 06-625266 



FONA 

RidhussiraKle 13 
6900 Flanders 
TeH.: 06-427533 



DATA RING EN 

Sioisgade 4 
SJotsoentrel 
8900 Flanders 
Te« 06-413777 



Nordjylland 



FONA 

Nihevei 27 A. Sluilborg 
9-200 Aatborg SV 
Tell 08-184310 



LEO VINTER DATA 

Kvtssel 

9900 Fredenhshavn 
Tit. 08 • 48 46 44 



Dares problem: Generende stoj fra edb-printer 

lasNiNG: SILENCE PRINTER-BOKS 




Stmt under --f.i--.--i- (oitti yuker 

■tnm ofl wmed fi»d«ii*i 
affaMwiwnn 

5li| hi Bdh-printer b«hav*« 
*»e »ng*tr ai give ptobfc 

mar. 

MoJ M SILENCE PRINTER 

Boil - ■<•■' D- 

. t>*MPN1NG 
' B€ DRE ARQEJDSMILJO 



SILENCE PRINTER BOKS m -3an» kvifuet ag \evmi*t> ill nlla pmtattypw fcnn oqU 
»v«n mod bad. 

LaVerH 9wwi Deies inli ,- edb- lover awWc *a*i Onklt hi foHit 

Ring efler ,a&Ugmfi oplrtrnngor ti sender vi Oem vor Or ocThub [}t* On Kan p> not 

ikke Ismw hv*a * 'onoUlec Dem . oAr Dtnit ftmin mmim i Mgnundwl 

SEE 

InQtids Alio 3 - 5250 Odenae SV 
Ttf. 109) 12 67 61 



PS Vt hqw fcom«M med larharaiirt 




Pakketilbud: 

Commodore 64 
+ 1531 Datasette 

Commodore 64 

+ 1541 diskettestation. 

Forst med sidste nyt: 
Commodore 128. 



Kun 



2.595,- 



Kun 4.995,- 

incl. moms 



Kr. 



4.995,- 

inct. moms 



yMIBOIA 

/MIKRODATk 

0sterbrogadel17 - 2lOOK0benhavn0 - til. 0 
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A. »* ? CO*" 10 ' 




3 



*6< 
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A) Din mening om RUN 

: All I aft Hvod er din mening om RUN'' 

□ meg el gwJ 

Q mindfe god 

□ darl-g 

2. Hviilfe laasens manor du RUN t sti nuvaifonde form mesi henvtinder sig 
HI? * 

□ Begyndere 
Vicwrokomne 

□ Eksperter 

3. Hvordan bedammot du oersanltgt RUN' <Kun a( krvds | hvof raekke) 



m8Q6t m>ddel hvemerwgiler midde) meget 



tnax 


□ 


□ 




□ 


□ 


widelig 


slatisk 


□ 


□ 


□ 


□ 


□ 


dyuimisk 


alvonlg 


n 


□ 




□ 


□ 


morsom 


int«resnnt 


□ 




□ 


□ 


□ 


kedelig 


usafidvantlg 


□ 


□ 




□ 


□ 


normal 


billig 


□ 




□ 


□ 


□ 


tfyr 


eisformigl 


□ 




□ 


□ 


□ 


atoifesiende 


ungdommeligl Q 




o 


□ 


□ gammeldags 


uvoosemitg 


□ 




□ 


□ 


□ 


mfomialiv 


originail 


□ 


□ 




D 


□ 


of dinar! 



4 Hvad batydBf RUN tot dig parsoniloi"' 



□ hjwltnir rtiig mogei 
Jjp h|telper mig 

□ ninlDer mig kun Ndl 

□ helper mlg slel ikke 

5 Hvad synes au om 3en mode. RUN prassenierer s>g pa? Angiv veniigat 
kun a! kryda (i - mogot god!. 6 = uWrredsstHlondel 







2 


3 


4 


6 


6 


tltusirniioner/Foios 


□ 


□ 


IS 


□ 


□ 


□ 


Opsajining af erlikler 


□ 


□ 




□ 


□ 


□ 


Progr«mll*!ninQer 


□ 




□ 


□ 


□ 


□ 


Papir/trykkvalitol 




□ 


□ 


□ 


□ 


□ 


Annoncw 


□ 


□ 


B 


□ 


o 


□ 



6 Om hvtlke camputere Skal RUN rortrinsvis informed (Her mi dugerne 
aaile Here krvds) 

□ V1C-20 

□ PLUSM 
QC16 

53 CBM-128 

□ Andre Commodore eomputere 

□ Konkurrerende eomputere 



7. Hvor vig&fle er de enfcolte rubnkKer (or dig' Sal venligst kryds for hw 
rubnk.(l - megel vlgttg, 6 - uvB3samiig) 





T 


2 




-4 


s 


6 


flopcinagor 


□ 


B 


□ 


□ 


□ 


Q 


Nyheder 


□ 




□ 


□ 


□ 


n 


Pr agramenme Ideise* 




□ 




□ 


□ 


□ 


Hardware tests 


□ 


□ 




□ 


□ 


□ 


Tips og rncks 




□ 


□ 


□ 


D 


□ 


Laaserbfovkassa 


a- 


□ 


□ 


□ 


D 


o 


Pfogramlialninger 




Q 




□ 


□ 


□ 


PC-sider 


□ 


□ 


□ 


□ 


□ 




Comal-sider 


D 


□ 


□ 


□ 




□ 


Annoncesider 


□ 


□ 


□ 


□ 




D 


Advenuiresider 


□ 


□ 


□ 


□ 


car 


□ 


Lassorannoncer 


□ 


□ 




□ 


□ 


□ 



8. Hvor omrtyggatigt laser du RUN"* 



□ Jag lasae' alio srtMer 

□ Jeg ■•• e de lleaie arttkler 
Jog (aeser kun fa arlikJer 

□ Jog leaser *un RUN 'Ivgngt 

9 Bliyer du pWket a! anmeldelser i RUN' 




□ "e| 



tO Soger du bevids! i RUN's anmoidolsar ottor loaning pa dine pfobfemer 



□ NO) 
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Hvor lang t<d lassm du normau HUN? 

□ En naiv HmeB ud 
gfCa i lime 

Q Omkring to timer 

□ Were end lo ttmer 



13 Hvordan far du normal! HUN? 

□ I abonria merit 

□ I en kiosk 

□ I en computerforratning 

{J Loner del elier far det at venner 

□ B liver hlsend! mig gnrtis 

□ Arrtei 



'4. Hvor lasnge har du laest RUN 0 

$0 



maneder 



17 Har RUN Sollware Club din tnt&rosse? 
□ Ja f^Ne] 



IB Har du *»Dt programmer gannem RUN? 



B) Din mening om computere 

19 Har du se-lv en comouier? 



?0 Hvad Druger du most dm computnr W? 
^ Hobby □ Skole/studJum 

^ Spll □ Ernverv 



21 Hvor tosnga har du hall an computer 7 





S-Siden 



□ Har Ingen computer 



22 Hvad har du ail (ail grvel to' dit computerudslyr? 



12 Hvor mange anoro personer law di| eksempiar ai Run? 
*- peraoner 



□ Under 100O kr. 

□ 100* HI 20O0 la 

□ 2001 til 30O0 kr. 

□ 3001 t,l 4000 U 

□ 4001 hi 60O0 kr 



□ 5001 III 7000 kr 

□ 7001 111 10 OOO kr 

□ 10.0O1 HI 15.000 kr 
Q-over 15000 kr 



23. HvilKo(n) copipuieria) har au"> 



i £*» .... 



Z „.„ 



24 Hvor megol lairdlg-sotlware bruger du? 

□ und 9 r20% D60% W70% 

□ 20% ill 50% gf?0% Irt 100* 

?5. Pftienkgr du ai hobfl/udskilta computer indenfor det naaste A/"* 

□ Ja SjNo, 



15 MvtlKe andre computerblaffe iasser du regetmasslgf 
1 4 

5 ,, 

J 6 

16. Hvilko andre blade lawer du? 
1 4 

2 

3 6 



26 Hvitken type programmer mtoreBwrer dig mesf 

□ UnMrvisnlngsprogrammef Daiabatsr 

^ Unde»nokiningi'spil □ Sottwareudviklmg 

Q Bogholdafi D Styreprog rammer nl professlonelle formal 

□ Tekstbehanflimg □ Andet 

27 Hwiikel udslyr har du M On computer? 
Q QrskellestBtlon 



Kassellesfaiion 

□ Printer 

□ Plotter 

□ Modem 
g] joystick 



g Lysperi 

□ Monitoi mafiochrome 

□ Monitor tarve 
53 TV 

□ Andal..— 



C) Personlige sporgsm^l 

28 Hwor gammel er du? 

□ under 12 ar ^ 

_ □ 12 til 15 Ar 

□ 16 in 16 atf 

□ 19 tH 23 Ar 



^ 24 in 30 ar 
□ 31 W 40 ar 
Q41 til 50 fir 
Q mere and 50 ar 



□ Ha/ tnoan eomfjuter 

□ Andet 



29 Er ou (or nden 
_ Q rolheskoioeiev 

□ gymnasiasl 

□ HF-sludarende 

□ lawling'elou 



fjjf] fasi j'bejde 

□ artejds-tedtg 

□ pensiomsi 
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ALWMRETTE SPORMED 




EJ EN STANDARD-DISKETTE MEN 
PRISSOM EN SAD AN. 
LEVER ES I PLASTBOKSE SOM STA NDA RD. 
EGENPRODUKTION ERA A-Z. 
UVSVARIG NEDSUD'S GARANTI. 

Eksemp/er hvor Xidex g§r langt over ansi krav; 

• 65% clip-level (h0jeste i branchen). 

• Centerhul's tolerance forbedretmed 50%. 

• Altid perfekt sporing. 

• H0jglanspoleret overflade. 

• Nul slid pa hoved og diskette. 



ENEIMPORT0R: 




Langelinie W.Snekkerup, 4140 Borup. 
Tlf. (03) 62 88 00. 



R U N 



RUN SOFTWARE CLUB optager 
automatisk alle, der har kobt soft- 
ware gennem RUN. som medlem- 
mer. Medlemsskabet e-r gratis og 
uforpllgtende, men medlemme-rrie 
vil med jaevne mellemrun f£ tilbudt 
forskellige produkter til reduce- 
rede prlser. 

Vi er allerede pa nuvserende tids- 
punkt ved at finde frem til nogle 
sasrdeles gode tilbud. der i decern- 
ber mSned vil blive tilbudt medlem- 
merne separal pr. brev. 

Hvordan bestilier man 

Vore priser skulle heist vaere sa lave 
som muligt, og de er derfor baserel 
pa forudbetaling. Dette giver mindst 
mulig administration og den hurtig- 
ste ekspedition. 

Del nemrneste er at ga pa post- 
huset og udfylde et girokort med dit 
eget navn og adresse, vores navn 
(RUN. Torvegade 52, 1400 Koben- 
havn K) og vort gironummer (1 48 
31 61). Du skai selvfolgelig ogsa hu- 
ske at skrive praecis, hvad det er, du 
bestilier. 

Du er naturligvis ogsa velkom- 
men til at sende en check, hvis det 
passer dig bedre. 

Nyt regnskabssystem 

Denne maneds nyhed er en udvi- 
delse at det regnskabssystem. vi 
praasenterede i RUN nr. 6. Interes- 
sen for dette program har vasret sa 
overvseldende. Det nye system in- 
deholder som noget nyt tjeneste- 
ydelser, hvllket gor det sasrdeles 
velegnet for betydelig flere naa- 
nngsdrivende. 

Begge systemer krsever en 
Commodore 64/12S, en Comal-80 
kapsel (version 2.01), en diskette- 
station og en MPS 801 eiler MPS 
802 printer. Hvis anden printer an- 
vendes. kan sejleprogrammet ikke 
kere. 

Hovedvaagten er lagt pa, at sy- 
stemerne skal vaare sa enkle som 
mulige at anvende - uden at tilside- 



saatte lovgivningens krav. Samtidig 
skai systemet rumme alle de facili- 
teter. man med rimelighed kan for- 
lange (og lidt til). 

Det nye system rummer bl.a.: 
Finansbogholdert (tidstro sa/di) 
Debitorbogholderi (tidstro saldi) 
Kreditorbogholderi (tidstro saldi) 
Lagerstynng (tidstro antal) 
Tjenesteydelser (tidstro priser) 
Finans, debitor, kreditor, lager og 
tjenesteydelser er integrerel, sa en 
transaktion automatisk opdaterer 
berorte konti, 

Systemet rummer desuden en 
bunke andre faciliteter i lighed med 
det system, der blev praasenteret i 
RUN nr. 6. 

Systemet med udforlag vejled- 
ning kan bestilles ved forudbetaling 
af kr. 575,00 (check eller girokonto 
1 48 31 61). 

System 1 (uden tjenesteydelser) 
koster kr. 375.00 og kan bestilles pa 
samme made som det andet regn- 
skabsprogram. 

Yderligere oplysnlnger om Sy- 
stem 1 eller System 2 kan rekvireres 
ved indsendelse af frankeret svar- 
kuvert til RUN. 

xTipsprogrammet 

Tipsprogrammet til Commodore 
64 har vaaret faardig et stykke tid, og 
efter nogle rettelser og forbedrtn- 
ger korer programmet perfekt. 

Programmet leveres i en compi- 
let (og dermed hurtigere) udgave 
for save! hovedprogram som prin- 
trutiner. 

Skulle du have faet en tidligere 
version end Ver.3.00, bor du omga- 
ende sende programmet ind til en 
gratis opdatering. 

Til tipsprogramet leveres i ovrtgt 
en diskette med ti store tipssyste- 
mer, der er velegnede til datatip- 
ning. 

Tipsprogrammet leveres ogsS til 
PLUS/4, dog ikke i en compilet ud- 
gave. Til C16 og VIC-20 <16K udvi- 
delse) leveres ligeledes et program, 
men til disse to masktner er pro- 



grammet af pladsrnaassige arsager 
delt op i flere mindre programmer. 

Tipsprogrammerne. der leveres 
bade i en band og en diskkettever- 
sion koster kr. 195,00, mens sy- 
stemdiskerten koster kr. 118.00. 

Husk, n&r du bestilier, at anfore. 
om det er band eller diskette samt 
hvilken computer, det drejer sig om. 

Programlistnlnger fra biadet. 

Siden starten har vi solgt band og 
disketter med de programmer, der 
er listet ud i biadet. Vi har band og 
disketter helt tilbage fra starten. og 
fortsaatter naturligvis denne service 
overfor Iseserne. 

En programdiskette koster kr 
118,00 pr. nummer, mens den til- 
svarende bandversion koster kr. 
98.00 

Vores bestseller, Privatregn- 
skab, fa\s ligeledes endnu og koster 
kr, 198,00 for save! band- som di- 
sketteversion. 

Endelig har vi samlet de 15 bed- 
ste fra RUN's forste ar pa en di- 
skette. Folgende programmer fin- 
des pk disketten: Bowling, Stave- 
program, Dobbelt Index, UFO lan- 
ding, Privatregnskab i Basic. Lister 
Filter, Base-mager, Supermon, 
Compactor, IJncompactor, Data- 
maker, Prioderegnskab.Tegnforde- 
ling. Diskrens og Stjernekrig. Di- 
sketten koster kr. 118,00 

Faerdige spil 

I sidste nummer tilbod vi Iseserne 
tre spaendende spil til en sasrdeles 
favorabel pris. Del har vaeret den 
helt store succes. og spillene blev 
revet bort. 

Vi har dem imidlertid atter pa la- 
ger, og vil kunne ekspedere spillene 
fra dag til dag. 

Glsed dig til nogle spaendende ti- 
mer, og laes pa eventyrsiden om 
Valkyrie 17. 

Vi glasder os til at byde dig 
velkommen i RUN SOFTWARE 
CLUB. ■ 
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TI18UD TIL ALLE LAS ERE' 



Manedens spil 
april 1985 
Commodore 




PC PC PC 



Framework 



af Robin Sagar 

Hvor tit har man Ikke I den senere 
tld hert ordene »det elektroniske 
kontor«. Ofte forbindes disse ord 
med computerbaseret arbejde og 
maske endda »robot-sekret£erer«. 
Sadanne fremtidsbilleder har dog 
ikke meget med virkelighedens 
verden at gore. 

Alligevel ma man dog sige. at 
udvlklingen inden (or hard- og 
software bringer os taettere pa det 
elektroniske kontor, og de dermed 
forbundne arbejdsmaBSSige aen- 
dringer. 



FRAMEWORK er et system, der 
hvad software angar peger i retning 
at det elektroniske og mere eller 
mindre papirlose kontor Det er det 
amerikanske firma ASTON-TATE, 
der har udviklet systemet, og den 
danske importer BERENDSEN 
COMPUTER har netop udsendt en 
dansk version. 

FRAMEWORK er en sakaldt inte- 
greret software-pakke. Det vil sige. 
at systemet indeholder flere for- 
skellige typer software, der kan be- 




nyttes t sammenhasng med hinnan- 
den. Der er i FRAMEWORK tekst- 
behandling, spreadsheet (elektro- 
nisk regneark), database (karto- 
tekshandtering), grafik, -idea orga- 
niser- (ide-bank) og en facilitet til 
kommunikation rned eksterne data- 
baser via et modem. 

Filosofien bag FRAMEWORK er, 
at alt styres fra et menu-system, og 
at alt hvad man foretager sig sker i 
■'rammer", de sakaldte ''frames«. 
Nar systemet startes op, bliver man 




•wpa&uvk 



h 

1 



MYHH) T 



praesenteret for et arbejdsareal pa 
sksermen. hvor der foroven er en 
oversigt over de ni -pull down- me- 
nuer, samt i overste hojre hjorne 
systemets ur Nederst pa arbejdsa- 
realet er der en status-linje, og der- 
under et informations-omrSde, der 
rummer en editerings-linje og en 
meddelelseslinje. 

For at kunne begynde sit ar- 
bejde, ma man vaslge den type 
frame, man vil arbejde med. Dette 
gores via »opret« menuen. Der er 
fire mulige frametyper.Spreads- 
heet-framen har leks. bogstaver i 
overste linje og tal nedad i den yder- 
ste venstre kolonne, mens data- 
base-frame kun har en tynd linje. 
der adskiller den overste linje fra 
resten af skasrmen. Alt det egent- 
lige arbejde foregar hererter direkte 
i den pagasldende frame. ASTON- 
TATE har omhyggeligt udvalgt de 
taster, der ligger i kanten af tastatu- 
ret til operations-taster. Naturligvis 
har alle funkttonstasterne ogsa hver 
deres betydning. Med systemet fol- 
ger iovrigt en »skabelon« til at 
laegge over tastaturet . sS alle opera- 
tionstasterne nemt kan findes. En af 
de vigtigste er F1. som er en hjasl- 
pefunktion, der f.eks. giver oplys- 
ninger om hver enkelt operations- 
tasts betydning. Denne hjaslpefunk- 
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PC 



tion er en at de mest funktionelle. 
jeg nogensinde har set i el soft- 
ware-system. 

TEKSTBEH AND LING 

Al tekstbehandling og tekstredige- 
fing i FRAMEWORK foretages i en 
tekstframe. Seive arbejdet i denne 
frame er meget nemt, og kraever in- 
gen forudgaende kendsKab eller er- 
faring med tekstbehandling. Ud af 
de fororntalte ni -pull-down« me- 
nuer, bruger man normalt to i for- 
bindelse med tekstbehandling. 
»Tekst» menuen giver mulighed for, 
at benytte treforskellige skrifttyper; 
normal, fremhaevet og kursiv sarrt! 
fordelen ved at lave automatisk un- 
derstregning. Del er ogsa fra tekst- 
menuen, at formatteringen af tekst 
foregar. 

Der findes fire forskellige format- 
teringsmulfgheder: lige venslre- 
margen. lige hojremargen. begge 
margener lige og centrering af 
tekst. Tekstafsnit kan flyltes og/el- 
ler kopieres og ord kan lokaliseres 
og erstattes med andre. Dette fore- 
gar via den sSkaldte ->handter« 
menu. 

Der er en speciel facslitet. jeg vil 
fremhseve, nemlig den som kan 
fremvise alle forekomster af mel- 
lemrum, tabuleringer og RETURN'S. 

SPREADSHEET 

FRAMEWORK'S spreadsheet-del 
er rimeligt avanceret og samtidig let 
titgaengeffg. hvorfor bade begyn- 
dere og mere erfarne kan have 
glsede af det. Systemet benytter sig 




af '-celle- princippet. og beregnin- 
ger kan ske bade I raskker, henad, 
nedad og I kolonner. Storrelsen pa 
kolonnerne kan bestemmes indivi- 
duelt for hver kolonne. Der kan an- 
vendes syv forskellige numeriske 
formater. f.eks. montsort. hvor bog- 
staverne Kr. automatisk skrives 
foran hvert tal, automatisk indsast- 
telse af punktum mellern tusinde 
(100.000) og automatisk procentbe- 
regning. 

Formlerne til beregning kan ind- 
laegges pa to mader: Den sasdvan- 
lige mSde, hvor formlen skrives di- 
rekte ind i den pagaaldende celle, 
eller ogsa kan formlen dannes ved 
at bruge cursortasterne til at ud- 
pege cellerne der skal indga, hvor- 
efter man bruger matematiske sym- 
boler til at -kasde- cellerne sam- 
men. 

De fleste matematiske udtryk kan 
bruges i FRAMEWORK'S spreads- 
heet. Envidere kan flere forskellige 
spreadsheets keedes sammen. hvil- 
ket gores ved at taste navnet pa et 
andet regneark og cellereference 
ind i det regneark, man sidder og 
arbejder i. Denne metode kan iov- 
rigt ogsa bruges til at kasde et 
spreadsheet og en database sam- 
men. 

DATABASE 

ASTON-TATE's erfaringer med da- 
tabasesystemerne dBASE II og 
dBASE III kommer naturligvis bru- 
geren af FRAMEWORK til gode. Da- 
tabase-frame er designer saledes. 
at den overste linje benyttes til ind- 
tastning af felt-navne. Dette medfo- 



rer. at hver linje ned ad skasrmen 
blivertil en database-record (post). 
Hvis man vil tllfoje en ny record, skal 
man stmpeithen placere cursoren 
p& den nederste linje og begynde at 
skrive. Ogsa her kan hver kolonne 
eller felt udformes individuelt. 



IDEBANK 

..Idebank- i FRAMEWORK hedder 
OVERSIGTER. Meningen er. at man 
skriver sine ideer og tanker ind i en 
raakke frames efterhanden som 
man far ideerne. Herefter kasdes de 
forskellige frames sammen til et 
samlet hele, en rapport. Oversigts- 
framen indeholder en slags ind- 
holdsfortegnelse med tre kapitler, 
som Igen hver bestar af tre afsnit. 
Nar man starter, er alle disse afsnit 
naturligvis tomme, og man kan her- 
efter anvende alle de for omtalte 
frame-typer. Herudover kan man 
hente information fra »eksterne» 
frames, dvs. frames der ikke er op- 
bygget inden for »ldebanken«. 



GRAFIK 

Grafikdelen i FRAMEWORK kan ta- 
ges i brug inden for alle typer fra- 
mes. Ved hjaelp af F6. kan man ud- 
vaalge den information, der skal ud- 
trykkes i grafik Via »Grafik« me- 
nuen bestemmes. hvilken slags 
graf. der skal tegnes. Der er seks 
forskellige at vaelge imellem, Syste- 
met navngiver automatisk grafen, 
samt x- og y- akseme. 



fori Scettes side 60 ► 
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INTERRUPT- DREVET 
MUSIK 



at Tor Engebakken 

Alle har vel hort, hvilken fantastisk 
maskine CBM-64 er, nar del gaelder 
om at lave musik. 

I denne artikel skal vi se lidt pa, 
hvordan man laver interruptdrevet 
musik. og ogs5 komme med et pro- 
gram, som skulle kunne forenkle ar- 
bejdet en del. 

Ov&rvaeldende muligheder 

Forste gang man kikker pa lyd-chi- 
p'en og dens mange registre, bliver 
man lidt or i hovedet. Der er slet og 
ret for mange registre at holde styr 
pa. og de forskellige muligheder gar 
hurtigt hen over hovedet pS en Ved 
at indseatte en sa tilpas avanceret 
lyd-chip, og samtidig gore det nser- 
mest umuligt at styre den, har Com- 
modore lukket mange potentielle 
data-komponister ude. 

Nu er man heldigvis skke tvunget 
til at gore brug af alte disse mulighe- 
der. og vi skal derfor kun se pa dern, 
der er nodvendige tor at fa en me- 
lodi frem. ^^/n 

Tre forskellige toner pa en gang 

Lyd-chip'ens registre starter i 
adresse 5427-2. Der er tre forskel- 
lige tonegeneratorer i maskinen, sa- 
ledes at har vi rnulighed for, at lave 
trestemmig musik. Hver af disse to- 
ner har en raskke individuelle regi- 
stre. og det er hensigtmaassigt at 
give, hver af de tre tonegeneratorer 
sin egen startadresse. 

T1 - 54272 
T2 = 54279 
T3 = 54286 

Det forste vi ma huske, er at 
sastte en -waveform" for hver af to- 
nerne (se artikelserien her i bladet). 
Dette vil bestemme tonens gene- 
relle karakter. Det gores ved at 
lasgge et besternt tal ind i tonegene- 
ratorens CONTROL-register (T1 + 
4/T2 + 4/T3+4). 



Ved at sastte forskellige bit i dette 
register, kan vi vaslge forskellige 
tone-typer. 

Triangle =16 (Bit4) 
Sawtooth = 32 (Bit5) 
Pulse = 64 (Bit6) 
Noise = 128 (Bit7) 

Dette register indeholder ogsa 
en del andre muligheder, men det 
eneste vi skal bekymre os om her, 
er bit 0. N&r denne bit saattes til 1, 
vil den starte tonens ATTACK/DE- 
CAY/SUSTAIN cycle. Nar biten 
saettes til 0, vil dette starte RE- 
LEASE, 

A D S R 

Disse fire parametre bestemmer to- 
nens karakter, og ved at forandre pk 
disse , kan vi f& et vseld af forskellige 
toner frem. 

ATTACK bestemmer, hvor hur- 
tigt tonen nar, sin maksimale hojde. 
Hvis vi setter va=rdien til 0, vil det 
ske i lobet af 2 ms, og ved at s?ette 
den til 15, vil det tage Ga. 8 sekunder 
at na toppen.Nar en tone nar top- 
pen, vil den begynde at synke igen. 
Hastigheden dette sker med, be- 
stemmes af DECAY, Ved at ssette 
DECAY til 0. vil dette tage 6 ms. og 
ved at saatte den til 15, vil det tage 
hete 24 sekunder. 

I forste omgang vil tonen synke til 
sit SUSTAlN-niveau. Hvis vi sastter 
SUSTAIN til 0, vil tonen synke til den 
dor bort, men hvis vi ssetler den til 
15. vil dette niveau svare til det ni- 
veau, den havde p& toppen af AT- 
TACK. 

Nar tonen har naet sit SUSTAlN- 
niveau, vil den holde sig der, til bit 
0 i control-registeret er sat til 0. N£r 
dette sker. vil den sidste del af to- 
nen begynde. 

Tonen vil nu synke fra sit SU- 
STAlN-niveau til 0, og hastigheden 
bestemmes af RELEASE-vcerdien. 
Varigheden af denne proces be- 
stemmes pS samme mSde som for 
DECAY. 

Disse fire parametre sasttes (for 



tonegenerator nr. 1) i T1+5, og 
T1 +6. 

ATTACK = fire overste bits i T1 +5 
DECAY » fire nederste bits i T1 +5 
SUSTAIN = fire overste bits i T1 +6 
RELEASE = fire nederste bits i 
T1+6 

Derudover ma vi seivfolgelig 
ssette tonens frekvens. Dette er en 
to-bytes vaerdi, og denne mS PO- 
KE 's ind i T1 + 0 og T1 + 1 . Hvis fre- 
kvensen er 1206, er dette maden at 
gore det pa: 

POKE T1 + t,INT{1 206/256) :POKE 
T1.1206-IMT( 1206/256) 
Du finder en te.be! over de forskel- 
lige loner i Programmers Reference 
Guide ^v-Ja 

Ved at eksperimentere med det 
Nile program nedenfor, skulle du f3 
indtryk af , hvad det er, sagen gsir ud 

U) S-54272 ^ V* 
20 ATTACK - 4 
30 DECAV»1^ v 
40 SUSTAIN- 6 
50 RELEASE = 12 
60 POKES +WmMJ 
70 POKES+5.ATTACK * 16+ DE- 
CAY rf/ffillMiI 

80 POKES + 6.SUSTAIN * 16-f RE- 
LEASE 

90 POKES + 1,10 

100 POKES + 4,33 

110 GETAS:IFAS = ""THEN110 

120 POKES + 4.32 

Hvordan splller vi en melodl? 

Nar vi endelig har fundet ud af . hvor- 
dan vi skal fa lyd frem. og besternt 
os til. hvilken WAWEFORM. AT- 
TACK/ DECAY/SUSTAIN/RELEASE 
vi skal bruge, vil vi prove at fa en 
melodi ud af det. 

Hvis vt prover i Basic, vil man hur- 
tigt opdage, at vi far problemer med 
at holde takten . Man lober og sai ind 
i andre problemer. Det er meget 
sjovt at lade maskinen stS og spille 
en melodi, men vi skulle ogsa gerne 
gore noget andet ogsa. Losningen 
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pa 1 dette (som pa sa rnegel andet) 
er at hoppe ind i maskinkode, og 
klare sagerne pa den made. 

Da vore store problem i Basic er 
at holde takten. behover vi noget. 
som allerede rnarcherer jaevnt og 
sikkert deruda'. Det har vi allerede 
i form at interrupt, og losningen bli- 
ver derfor at lade denne tage sig af 
vores melodi. Det fine ved denne 
metode er, at det vil virke »usynlrgt« 
overfor andre dele af programmet, 
saledes at vi kan kore vores Basic 
eller maskinkodeprogrammer uden 
at tage hensyn til musikkea 

En musik-kompilator 

Til vores brug behoves to program- 
mer. 

Det forste program, "MU- 
SIKK.MO er maskinkodedelen, 
som tilsluttet vil spille selve melo- 
dien. Du ma derfor taste dette ind 
forst, og derefter lagre programmet 
til senere brug. 

»MUSIKK.KOMP« erdet, jeg med 
et noget praetentiost navn har kaldt 
en «musik-kompiiator». I stedet for 
at finde ud af, hvilken frekvens de 
forskellige toner har, og POKE dem 
ind i hukommelsen, kan du nu 
skrive musikken i en mere normali- 
seret form. De forskellige frekven- 
ser I igger i en tabel i maskinkodede- 
len af programmet. og -MUSIKK- 
.KOMP- genererer et indeks ind i 
denne tabel for at finde ud af, hvad 
det endelige program skal spitle. 

Nar du har tastet programmet 
ind, kan du prove at kore det. Du vil 
hurtigt fa en -OUT OF DATA ER- 
ROR", og dette skyldes. ai du setv 
ma" finde ud af, hvilke data du skal 
skrive ind. 

Det er derfor nodvendigt, at du 
kan laase noder og lidt kendskab til 
enkel harmonileere er heller ikke at 
foragte! 

Otte oktaver at lege med 

CBW-64 kan lave toner over et 
spekter pa hele otte oktaver For at 
programmet skal have en struktur 
at arbejde ud fra. ma du skrive no- 
derne ind pa en lidt anden made, 
end du ellers er vant til. De tolv to- 
ner i en skala skal skrives pa denne 
made: 

CO, * CO.DO, Jt DCEO.FO, # F0,GO\ 
#GO.AO,#A0 ( B0 

Dette er den laveste skala. For at 
fa toner frem t de hojere skalaer, 
skifter du bare nullet efter tonen ud 
med et tal mellem 0 og 7. 



Som de kvikke sikkert har lagt 
masrke til, er der ingen b'er foran 
noderne. Dette skulle imidlertid ikke 
vasre noget problem, da et b foran 
A kan skrives som et *t foran G. 

Hvordan skriver du melodien 
Ind? 

Programme! laver en trestemmig 
melodi. og venter derfor at finde tre 
toner efter hinanden i datasaetnin- 
gerne. Som du kan se af eksemplet 
nedenfor. vil den forste tone i 
stemme 1 vsere C5. Den forste tone 
i stemme 2 vil vsere E4, og den for- 
ste tone i stemme 3 vil veere C4. 

De nseste tre toner vil vasre lig 
med de tre forste, og dette skyldes, 
at du ma lade den korteste tone i en 
melodi vaere den enhed. som to- 
nerne bestar af. Hvis den korteste 
tone er en 8.dels tone , ma du derfor 
spille to af den slags toner for at fa 
en 4. dels tone. Det kan hurtigt blive 
tnaals, hvis melodien har et kort lob 
pa 16. dels toner, mens resten be- 
star af hel- og halvnoder. Veer op- 
masrksom pa det, nSr du vaslger din 
melodi. De tre nseste data er de to 
sasdvanlige toner efterfulgt af et ni- 
tal. Dette nital er bare en made at 
fortsBlle kompilatoren, at denne 
stemme ikke skal have nogen tone 
i denne omgang. 

Forskellige parametre 

ATTACK/DECAY/SUSTAIN/RE- 
LEASE kan du selv bestemme I linje 
120-150, og i linje 170 bestemmes 
'•waveform*. 

I linje 190 har vi en vigtig variabel, 
som i mangel af bedre navn kaldes 
»klokke«. Den vil bestemme. hvor 
hurtigt det faerdige program skal 
spille melodien. Hvis denne variabel 
saettes til 10. vil programmet spille 
en ny tone seks gange i sekundet. 
(Da interrupten slar til 60 gange i 
sekundet. bliver regnestykket 60/ 
10). 

Hvordan bruger du programmet? 

Efter at have skrevet alle dine data 
ind, ma du indlasgge en sidste data- 
saetning: 

15000 DATA END. END, END 

Dette er nodvendigt. for at pro- 
grammet skal finde slutningen pa 
melodien. Hvis du glemmer denne 
sidste linje. vil du fa en "OUT OF 
DATA ERROR-, og det kan godt 
Vcere lidt irriterende' 

Du er sa klar til at lave det fasr- 
dige musikprogram. Det "forste du 



gor, er at indlsese programmet 
»MUS:KK.MCX Nar du korer dette. 
vil det Isegge et maskinkodepro- 
gram ! omradet SCO00-SC1 FF. Der- 
efter indlaeser du basicprogrammet 
med dine data-linjer, og du korer sa 
dette. Programmet vil generere tre 
tabeller over de forskellige stem- 
mer, og kasde det sammen med ma- 
skinkodeprogrammet. Efter at have 
gennemgaet data-sastningerne. vil 
du blive spurgt, om detfserdige pro- 
gram skal lagres. Svarer du ja til 
dette sporgsmal, vil du blive spurgt 
om. hvilket navn. programmet skal 
have, og programmet vil blive lagret 
pa diskette. Du kan sa. starte pro- 
grammet direkfie ved at sknve SYS 
49152. 

SYS 49152 + 3 vH sla musikken fra 
igen. 

Den faerdige melodi ma hentes 
ind med ",8,1". og startes med 
samme SYS. 

N4r musikken (forhdbentlig) er 
begyndt at spHle, kan du ®ndre i 
musikken, mens den spilles. 

Adresserne 49158-49160 ipde- 
holder waveform, og ved at POKE 
disse adresser til 0, kan du sla hver 
enkelt stemme fra. Ved at ssette 
dem til tallet for waveform, f5r du 
dem til at spille igen. 

Adresse 49161 er hastigheden 
pa melodien. Jo hojere dette tal er. 
jo langsommere vil melodien spilles. 

Hvis du, na> du er fserdig med en 
melodi. synes at en af stemmerne er 
en oktav for hoj eller lav. kan du 
forandre dette. 

Adresserne 49163-49165 inde- 
holder en offsetvaardi til det, som 
ligger i tonetabellerne. Default er 
selvfolgelig 0, men hvis du laegger 
et tal ind i disse adresser, vil du 
kunne spille andre toner end de, 
som ligger i tabellen. 

Hvis du laegger tallet 12 ind i 
49163, vil stemme nr. 1 spilles 12 
toner lavere end det, programmet 
har lagt op ( hvilket vil sige en oktav) . 
Skal du have en oktav hojere, vil du 
kunne fa del ved at leegge et »nega- 
tivt» tal Ind i disse adresser. Et »ne- 
gativt- tal vil i dette tilfaslde vasre 
244 (256-12)!!! 

Demoprograrnmet er skrevet ind 
efter noderne pk en kendt spansk 
melodi »Espana Cank 

Og hermed haber jeg , at I har faet 
blod pa tanden. og at melodierne 
snart vil stromme ud af maskinerne 
rundt omkring. 

God fornojelse, 
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Mtv uar engang... 



af Robin Sagar 

Nu da vinteren st&r for doren, bli- 
ver lysten til at foretage sig uden- 
dors aktiviteter mindre og mindre. 
Mange vil sikkert vende sig mod 
computeren, og vi »>taenker« her pa 
vores adventure spil. 




EXAMINE 

Del forste af de spil, jeg vil omtale, 
er ikke helt nyt. Det hedder VALKY- 
RIE 17. Jeg har tidt svaart ved at 
finde ud af. om det er et meget se- 
riost eller skort spil. Spillet tager ud- 
gangspunkt i begivenheder der 
skete under 2, verdenskrig, hvor du, 
(spilleren) er en allieret agent. Nu 
mange ar senere, ser det ud til, at 
det tophernmelige projekt VALKY- 
RIE 17 er genopstaet hos Nasi-sym- 
patisorer, der vil dominere verden- 

Spillet sJarter med, at du sidder 
i baren p& Hotel Glilz. der ligger 
med udsigt over Lake Bruntz. Nar 
man sidder i en bar uden penge, er 
den eneste fornuftige reaktion at 
forlade hotellet. Men det kan du 
ikke, for direktoren vil ikke lade dig 
ga. for du har betalt din regning. 
Mystlske telefonopringninger som 
du modtager fra forskellige steder, 
er ogsi en grund til at komme hur- 
tigt vask. Du finder en forklaring. 
men direktoren er abenbart vant til 
de!te, for han lader dig ikke ga. En- 
delig slipper du ud (dette er en 
hint), og finder vej til landsbyen ne- 
denfor bjerget. op til det beromte 
Schloss Drakenfield. Jeg ma ind- 
romme, jeg har endnu ikke afsluttet 
spillet. men prover stadig. 

Spillet har bade grafik og tekst. 
og skitter hurtigt fra et sted til et 
andet. Ordforradet er rimelig godt. 
men instruktionen kunne godt vsere 
mere praasis. Som eksempel kan 
jeg give, »get newspaper- virker. 
men »get paper- virker ikke. Det vil 
nok vaare en meget god ide, at se 
noje pa de billeder, der kommer pa 



skaarmen. Nogle gange er der ting 
p5 skaarrnen. der kan vsere til stor 
nytte. men som ikke er nsevnt i den 
tekst, der beskriver det sted. hvor 
du nu er. 

VALKYRIE 17 er ikke et alvorligt 
spil. men enormt sjovt og godt. 




Det naeste spil RED MOON er det 
nyeste spil fra Level 9, det er det 
firma, der for nyiig har sendt RE- 
TURN TO EDEN, og EMERALD 
ISLE pa markedet. Handlingen fin- 
der sted i kongeriget Baskalos. og 
er et lige-ud-af-landevejen eventyr 
spil. hvor man skal genvinde Moon 
Crystal. For at gore dette er det 
nodvendigt, at besoge over 200 ste- 
der. og selvfolgelig er der mulighed 
for, at bruge »magi" under vejs. 
Denne magi kan kun bruges i spe- 
cielle tilfselde, sa. pas pa at den ikke 
gar til spilde. Der er grafik ved hvert 
sted. d.v.s, en masse billeder der 
ikke alle er lige gode, men alle har 
den fordel. at de skitter hurtigt. For 
at fuldfore RED MOON, er det nod- 
vendigt, at samle ni eventyrlige 
skatte og andre objekter. Men som 
ventet. er disse beskyttet og bevog- 



tet af en samling af forfasrdelige 
troldmasnd og monstre. Derfor spil- 
ler kamp en vigtig rolle i dette spil. 
Men alt efter, hvilke vaben. rustnin- 
ger og skjolde o.s.v du har. kan du 
fa og rniste »hil-points«. De spillere, 
der har spillet DUNGEONS AND 
DRAGONS, det originale board 
game (jah, der var skam eventyrspil 
for vi fik vores computere). vil vide, 
at hit-points maler din styrke og mu- 
iigheden for at overleve. hvis du 
kommer i kamp. Der er flere ting, 
jeg godt kan lide ved RED MOON, 
bl.a at der kan skrives forud for 
handlingen. Dette fandt jeg meget 
nyttigt, da jeg for tredje gang blev 
slaet ihjel. og havde glemt at 
»save«. 

Alt i alt er dette nok det bedste 
spil fra Level 9 til dato. Der sker en 
masse ting, god grafik, og det har 
en nogenlunde handling. 




En lasser Jannik Bo Rasmussen har 
fulgt RUN's opfordring til at sende 
adventure spil ind. Da det erethan- ► 
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Commodore - MARKED 



REPARATION 

Er microdaiamaten glet i 
slykher? 

Ring 09 *3 SO Snak om probleinef. elter 
send datamalen (II os med posien. 
Vi reparecer hurttgt og billigi og vi giver 
geme el tilbud forsi. 
Vi swlger ogsa reservedele og tilbehor. 




GR0NH0J 
elektronik 

v. Frode Harritz 
Monstedve] 35 

7470 Karup 
Tlf . 06-66 1 1 56 



Fa mere ud af 
din Commodore 
hjemmecomputer 

Dansk Tidsskrift med tips 
og ideer. 

Prevenummer tiisendes. 

Basic Programmering 

Norholmvej 8 
8740 Braedstrup 

Tlf. 05-761518 



Commodore specialisten 
Byens billigste! 

Commodore 64 
SX-64 • C16 • Plus/4 
Oisketlestation154l 

Printer MPS-801 

Printer MPS-802 
Monitor 1701 

Erhvervsprog rammer, lege programmer, 
tilbehor. EDS-borde 

Vihardethete! 

Ringogfi 
etgodtilJbud 

MIBOUk 

yMIKRODATK 




NVHEDER TIL DIN 

TURBO TEKST -det lw>ge ventede 
Speciel Wndversion der udnytter din 
hassette fuldt ud. Ca.20 gange hurtigere 
end nonnalt (hurtigere end diskl. 
Dansk karaktersat.optil 60 tegn pr.hnie 
Soikket ied finesser. PRIS KUN KR. 385 

SERIEL- INTERFACE (RS-232C) 

Benytter ingen software. PRIS KR.685 

PftRflLLa PRINTER INTERFACE (CENTRONICS) 

FuldsUndig eed stik, kabel h software 

PRIS...DISK:350 KR KQSSETTE:330 KR. 

8-KflNftlS RS.CB0X. Inkl.progrMhstmnger 
Til stynng af lys.varw dsv. PRIS KR.580 

BWLKRVEJLEDNING ledfilger. 

Sfcriv til= Theilgaard Data 
N#rreskovvej 2 
63B2 Terstwl DK. 



Vil De spare 1-2-3-4-5-600 kroner sa se her! 

Danmarks billigste printerkabler og special kabler 

Vi producerer ogsa printerboxe til sm§ penge. 
Ring eller skriv efter prisliste. 
Er der tale om sterre antal si kontakt os. 
S& finder vi en god pris. 

Leverander til IBM, Commodore og Olivetti PC forhandlere. 

BETA TECH 



Matildelundsvej 1 1 • DK 8260 Viby J. 
Phone 06-29 19 33 




Salgsafdelingen 
Blakildecentret 18 
2630 Tastrup 
02-99 93 71 



LITTERATURSERVICE 

• SA-170 Mark'Andrews: Commodore 64/128 Assembly 
Language programming. 

Engelsk 32Q sider, Howard Sams 1985, kr 250.00 

SA-107 Timothy Knight: Commodore 64 Graphics and Sound 
Engelsk BAND/BOG. Howard Sams 1984, kr. 334.00 

SY-144 Richard Allen King; Multlpian on Commodore 64 
Engelsk 225 sider. Sybex 1985. kr. 299,00 

PE-304 Poul Pavelko. The Master memory Map for Commodore 64 
Engelsk 190 sider, Prenlice Hall, kr 150.00 

PE-507 Robert Williams; Power of CalcResuit tor Commodore 64 

Engelsk 195 sider. Prenlice Hall, kr. 326.00 
C & B Mikrodatainformation har Danmarks slorste udvalg af Cornpulerlitieratur. 

FORLANG BOGKATALOG 

Vi har mange nedsatle boger til VIC 20 (rekvirer bogliste). 

Bogerne leveres fragtfrit over hele landet. 



fra side 56 

dicap, for yngre interesserede at 
spille almendelige adventure spil, 
har jeg bedt en skoleelev (Christian 
Sparrevohn) kikke pa det. Her er 
hvad han skriver: 

» Dette spil foregar i en verden 
bestaende af et antal steder, med 
tilknyttede objekter, vaesener og 
handlingsforlob. Et sled i naerheden 
af udgangspunktet, er der et glemt 
hulesystem. hvorfra man tidligere 
har hentet kostbare skatte. Det si- 
ges, at trylleri virker i hulerne. som 
bestar af ialt 32 forskellige steder«. 

Lyder det ikke spsendende? Du 
behover ikke vaere bange for at du 
er darlig til engelsk. det er nemlig et 
dansk adventure. Godt nok kan 
man genkende noget fra »huleeven- 
tyrerne», men spillet er alligevel me- 
get selvstaendigt, der er bl.a. en god 
dansk humor, som en af de gode 
ting pa ingredienslisten, og det er et 
spil af meget hoj kvalitet. Beskrivel- 
serne af de enkelte lokaliteter er 
meget god og grundig. Jeg troede 
forst. jeg ville savne grafikken. men 
det gor ikke noget. Sproget er fint, 



Eureka! 

af Flemmlng Lerbsek 
Selv om vi nu gennem maneder har 
puklet os gennem Eureka, blev der 
desvaerre ingen af RUN's laesere, 
som vandt de 25.000 pund, softwa- 
refirmaet DOM ARK havde udsat 
for den rigtige losning. Hvem der 
var den dygtige vinder, kan du se 
i vores nye rubrik »Newsdesk«, 
men vi modtager stadlg losnings- 
forslag, og et af dem bringer vi i 
dette nummer. 

Sidste gang vi skrev om Eureka, 
gav jeg det losen. der skal til for 
overhovedet at komme i kontakt 
med den femte og sidste del af spil- 
let. I denne del findes ogs5 del en- 
delige losen i form af et telefonnum- 
mer. Men da der allerede har veeret 
ringet den ene gang for meget pa 
dette nummer - nemlig af vinderen 
- er vi kun af almendelig eventyrlyst 
interesseret i losningen. Nummeret 
er afbrudt. 

Mange rygter har verseret om- 
kring Eureka. Det er klart, nar sa 
mange penge har vaBret pa hojkant. 



men ordforridet kunne godt vaare 
lidt storre, f.eks. ord som »giv«- eller 
■>undersog«. Men det ma jo ogsa 
vsere svaert at lave et Adventure. 

Jannik Bo Rasmussen har sendt 
dette spil til RUN, og kan desvserre 
ikke kobes i butikkerne. 

Dette skriver Christian, og jeg er 
hert enig. Der er mange labyrinter, 
og jeg har vasret nodt til at starte 
forfra mange gange, for jeg har naet 
mine 527 points. 



HELP 

Denne maneds hints har begge no- 
get med slotte at gore. Det drejer 
sig om CASTLE OF TERROR fra 
Melbourne House, og SORCERER 
OF CLAYMORGUE CASTLE fra Ad- 
venture Internationals. 



CASTLE OF TERROR 

1 For at fa hjaalp, kob et glas ol til 
den gamle mand i puben. 

2. Det kan godt betale sig at 
hjaelpe landarbejderne. 



De mest ondsindede rygter gik ud 
pa, at DOMARK var pa fallittens 
rand, og at Eureka ingen succes 
var, Der er dog efter vore opgivei ser 
solgt omkring 100.000 spil. Hvem 
der har startet rygterne, kan man 
kun gastte om, men konkurrenterne 
pa spilmarkedet, har maske vaeret 
Mdt rntsundelige pa den store pen- 
geprasmie, hvem ved? 

Ihvertfald er vi nogle stykker. 
som stadig kan finde pa, at tilbringe 
en aften og nat i en af de fern even- 
tyrspil, der udgor Eureka. Sa har du 
losninger, eller forslag til tips om at 
komme over en hurdle i spillet, sS 
skriv fortsat. Som eventyrspiller har 
du sikkert bemserket vor faste ru- 
brik, skrevet af Robin Sagar. Det 
bliver nu ham, der tager sig af de 
videre forslag til Eureka. 

En laeser, Ole Brian Poulsen, 
sender losningsforslag til de forste 
35 % af Caribbian-delen pa Eureka: 

Selvom jeg er Eeidre. er jeg hab- 
los romantiker. Uden alt for meget 
kommenterende tekst, ser losnin- 
gen sadan ud: 

Her er de fire ord, som skal stges 
for at komme igang, se iovrigt RUN 
nr. 6. red. Meep meep, Nero, Mor- 
dered, Anvil Chorus. 



3. Der er mere end en mode der 
kraever at blive undersogt. 



SORCERER OF CLAYMORGUE 
CASTLE 

1 . Alle vsegge er ikke. hvad de synes 
at vasre i Plain room 

2. Vasr opmserksom pa, at der 
ogsa kan findes noget uden for slot- 
tet. 

3. Kast et spell ved trappen, og 
se hvad rotten gor. 



STOP 

Alt for denne gang.Jeg vil naeste 
gang anmelde TERROMELINOS. 
fra den skore duo, der lavede HAM- 
STEAD, Peter Jones og Trevor Le- 
ver. Desuden haber jeg. at kunne 
anmelde FOURTH PROTOCOL, og 
oven i kobet maske komme med 
nogle hints til dette spil. 



T (take} faldskasrm, samt diverse 
vent til billed 2 
J (jump) 
SW 
D 
T 
U 
NE 
SE 
NE 
SE 
SW 
SW 

N (panther. hit panther.bliv ved. 
hurtig tryk a. Return, tryk a. til den 
er dod) 

T (nemlig. carcass) 

NE 

NE 

Examine pyramid 
Enter 

Examine idol 

T (diamant) 

Out 

W 

SW 

SW 

W 

Use parachute (isolerer hegnet) 
Up 

fortsaettes side 64 ► 
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JUKI 2200 Skrivemaskine/printer 
Hastighed: 10 tegn/sek. 
Pris 4.800," excl. moms. 

JUKI 2200 KSR Terminal/skrivemaskine/ 
printer 

Hastighed: 10 tegn/sek. 
Pris 5.300,- excl. moms. 



■JUKI 

EN FAMILIE AF 
SK0NSKRIFTPRINTERE 



JUKI 6100 18 tegn/sek. 

Pris grundmodel 6.500,- excl. moms. 

Pris med arkfeder 9.650,- excl. moms. 





JUKI 6300 40 tegn/sek. 
Pris med arkfoder 

1 magasin 17.000,- excl. moms. 

2 magasiner 20.000,- excl. moms. 



JUKI 6000 10 tegn/sek. 
Pris 3.180,- exql. moms. 




JUKI 6100 18 tegn/sek. 

Med traktortoder 8.100.- excl. moms. 



JUKI 6300 40 tegn/sek. 

Pris grundmodel 12.500,- excl. moms 

Med traktortoder 15.000,- excl. moms 



IINTER/HEDIUM 



Intermedium EDB-Teknlk og Service A/S 
Hedeager 2, 2605 Brendby 
Tlf. (02) 45 82 33 



Jyllandsafd.: Mollevej 5, 8680 Ry 

Tlf. (06) 89 31 22 



CEnneonir5 
■JUKI 



► fra side 53 

Disse navne kan man selvfolgelig 
lave om pa senene.'hvis man vil. 
Hvis ens PC'er har farveskserm, 
kan grafen farvelaagges ved at bruge 
F9. 



I FRED er der 159 forskellige 
funktioner til radighed. Normalt 
ssettes de samrnen i formler (pro- 
grammer) i del ene hjome af en 
frame eller de kan ligge -bag- den 
frame, de skal virke pa. 



FRED 

Ud over at FRAMEWORK mdehoi- 
der de her beskrevne software-pro- 
dukter. har de! -ogsa sit eget pro- 
grammeringssprog. kaldet FRED 
(FRAMEWORK EDITOR). Sproget 
anvender FRAMEWORK-instruktio- 
ner, nar man onsker at designe spe- 
cielle serieraf frames og skasrmbii- 
leder. Det er derfor ogsa. klart, at 
FRED forst og frernmest er en for- 
det, nar man arbejder med spreads- 
heet. Men da enhver frame i FRA- 
MEWORK kan indeholde udregnin- 
ger af forskellig art, kan FRED-pro- 
grammer og sub-rutiner ogsa bru- 
ges i f.eks. databaser og i forbin- 
delse med opbygningen af integre- 
rede rapportsystemer. 

► fra side 7 



FLEKSIBILITET 

FRAMEWORK er et meget fleksi- 
beit system, der indeholder det me- 
ste at den slags software, som nor- 
matt kobes lil PC'er. t den danske 
udgave er atle menuer, instruktioner 
og hjaBlpeskaBrmbilieder pa dansk. 
Det samme er tilfaaldet for den me- 
get gode brugervejledning, der be- 
star af en indlasrings- og en referen- 
cedel til hurtige opslag. 

Det samlede system har naturlig- 
vis sin pris, bade hvad angar penge 
og computer-memory. Minimum er 
256K. Med dette memory, er der 
plads til 12 tekstsider, 76 database- 
records og et regneark pa 522 celler 
i computeren pa samme tid. Ikke 
desto mindre er 256K ikke nok til at 
kunne kore indlaerings-program- 



met, som folger med systemet. Her- 
til kraeves 352K. Den storste kapaci- 
tet i de nuvasrende PC'ere er nor- 
malt 640K. og med en sadan me- 
mory kan FRAMEWORK pa en og 
samme tid arbejde med 103 tekstsi- 
der, 658 database-records og 4534 
spreadsheet-celler. For at kunne 
udnytte muligheden for telekommu- 
mkation er det ogsa nodvendigt 
med de 640K. 

Efter at have arbejdet med syste- 
met, ma jeg konkludere, at FRAME- 
WORK virkelig er brugervenligt. og 
meget fleksibelt at anvende. Dog 
skal det tilfojes (og det gaslder alle 
integrerede PC-systemer). at hvis 
ens behov udelukkende eller over- 
vejende falder inden for enten 
tekstbehandling. database eller 
spreadsheed, bor man nok inve- 
stere i et specialdesignet system. 
Men hvis man har overvseldende 
store maengder af data, kan jeg pa 
det varmeste anbefale FRAME- 
WORK. ■ 



SOFTAUTOMAT 

Put en halvtredser i betalingslugen, 
vEBlg pa tastaturet, hvad du vil 
ha'.og to minutter senere far du den 
endnu varme 5 1/4- disk ud med 
den valgte software. Fremtidsmu- 
sik? Nej, slet ikke. I Vesttyskland. 
nasrmere betegnet hos Bremer 
Astech GmbH, har man netop faet 
opstillet en sadan automat. Den kla- 
rer det, man tidligere skulle have et 
stort lager af software for at kunne. 
Nu tager man programmerne hjem 
fra Astechs hovedcomputer gen- 
nem teiefonnettet. spiller dem over 
pa diskette, og saalger dem via au- 
tomaton. 



SOFT AID 

Soft aid, Feed the World far for- 
mentlig en efterfolger. Det forste 
band regner udgiveren med vil tnd- 
bringe omkring 300.000 pund til de 
hungersramte i Afrika. De ti spil pa 
dette ars kasette far formentlig en 
efterfolger efter nytar. Malet er, at 
skaffe omkring en halv million pund, 
gennem salget at disse kassetter. 
Den forste kassette kan naturligvis 
stadig fas, og kan pa del varmeste 
anbefales, bade hvad angar indhol- 
det af software, men sa sandelig 
ogsa pa grund af arsagen. Prtsen 
for et Soft aid band er under 150,- 
kroner. Selvfolgelig fas bandet ogsa 
til 64'eren. 




Husk 

Fadselsdagskonkurrence 

sUtsU ftist 18-11-85 
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GRAFIK MED MPS 802 PRINTER 
I COMAL 80 

af Hennlng Randmose 



Efter antallet af henvendelser, voi- 
der det abenbart problemer, at fa 
802 printeren til at skrive graflk. 
Derfor denne gennemgang af, 
hvad og hvordan man skal gore. 

Det forste du skal gore, er at ga 
ned til din Commodore - forhand- 
ler, her skal du bede om at fa en 
kopi af maskinkodepakken »dump 
802.obj«, den er GRATIS, da ruti- 
nen er Public Domaine. men di- 
sketten du far den lagt pa, skal du 
naturligvis betale. 

Brug af pakken: 

Du har lavel et program, hvor du har 
lavet nogel grafik, du gerne vil have 
ud pA printer, del henter du ind f din 
64*er, 

forst i programmel, hvor du ple- 
jer at skrvie dine USE ssetnmger, 
skriver du: 

USE dump802 

p& den plads, hvor du vil have din 
grafikskeerm udskrevet, skriver du: 

dump(O) <ved brug af grafik- 
skeerm 0> 
elier 

dump(1) <ved brug af grafik- 
skaarm 1 > 

Nu indeholder dit program de in- 
struktioner, det behover for at akti- 
vere maskinkodepakken, nu mang- 
ier vi blot at f£ pakken til at blive en 
del at dit program. Du beholder dit 
program i 64'eren, sa laagger du di- 
sketten med maskinkoderutinen I 
drev og taster: 

LINK "dump802.obj" 

Fjern disketten, og ilasg din ar- 
bejdsdiskette og SAVE dit program 
som normalt. Nu er rutinen en del af 
dit program, og bliver hentet ind nar 
du LOAD'er. Afprov det, sluk maski- 
nen, LOAD det ind og kor det. og du 
vil opJeve, at din MPS802 arbejder 
som grafikprinter. 

Til sidst et godt r£d, brug altid 
farve 1 (hvid) som baggrundsfarve, 
hvis du da ikke har aktier i det firma. 
der laver farveband ■ 



bed* 




sprog 




Ly&kaK 1 3 8 - 2730 Herlev 



Tll.nr. 02-91 00 99 
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WANTED: 

OLD 
THINKER 

TOYS, 

CW Communications, ComputerLand and 
The Computer Museum invite you to send in 
your early personal computers, software, and 
memorabilia — you could win a free trip to 
The Computer Museum in Boston 




Your old, dusty "thinker toy" may now he 
ready to become a treasured museum piece. 
The Computer Museum in downtown Bos- 
ton — an international museum dedicated 
entirely to computing — is searching for the 
very best and most unique relics of the per- 
sonal computer revolution. 




evolution of personal compucers and a cata- 
log highlighting the 
Museum's collec- 
tions. If your sub- 
mission is accepted 
for addition to the 
Museum collection, 
you will be invited 
to the grand open- 
ing of the exhibit 
and will receive a 
bound edition of 
the catalog. If your item is selected as one of 
the five best "finds", you will also receive an 
all-expense-paid trip to Boston for the grand 
opening party. 





Computer- 
Land, CW 
Communica- 
tions, and 
The Com- 
puter Museum 
are working to- 
gether to bring 
' ese early relics 
of your attic 
and into the 
collection of 
The Computer Museum. The museum is es- 
pecially looking for kit machines, proto- 
types, programs, output, newsletters and 
memorabilia of early computing from 
around the world. A selection of the finest 
items will be used to create an exhibit on the 

The 

OomputMtMdr S£ST 

IvK K T\ 1 

CW COMMUNICATIONS/ INC 

Entries will be judged on significance, rarity, dare, complctness and condition. Item* particularly sought include pre-1980 machines, 
early serial numbers {get those number I 's out), machines made for purchase outside of North America (even modern machines arc 
nought in this category); first releases of software such as first releases of opcrdringsvsccm*. languages and mass-marketed and original 
applications; and pre-1980 photograph*, newsletters, manual* and other records. The Computet Museum is a private non-profir 
educational institution. All donations are tax-deductible according to the provisions of the Internal Revenue Service- Thinker Toys is 
a registered trademark of George Murrow &t Murrow Designs, Inc. 



So, get up co the attic, 
down to the cellar and 
into your closets, and 
tell us what you find! 
Call or write the Muse- 
um for an official entry 
form, or send a photo 
and description of your 
items by March 1, 1986 
to: The Computer Museum, Personal Com- 
puter Competition, 300 Congress St., Muse- 
um Wharf, Boston, Massachusetts USA 
021 10, (617) 426-2800, Telex: 62792318. 





J 'J A 0 9 SBftR 15-20* ! 




Klipkuponen ud 

og send den i en lukket konvolut til 
RUN Commodore-magasin. 
Torvegade 52, 1400 Kobenhavn K 



□ Jeg onsker at tegne et helarsabonnement (1 0 numre) 
og sparer 20%. Fodselsdagstilbud kr. 196,- 

□ Jeg onsker at tegne et halv£rsabonnement (5 numre) 
og sparer 1 5% . Fodselsdagstilbud kr. 1 04,- 

Jeg onsker bladet leveret fra nr. 



Navn: 



XAdresse: 
Postnummer: . 



By. 



► fra side 56 

SW (hit dog, ligesom hos pante- 
ren, til den er dod) 
SW 
SW 

Throw carcass (hajerne bliver 
opiaget) 
D 

T (metal strip) 

U N 

N 

N (garage) 

T 

S 

s 

Use strip 

N (body guard, hit man, til nan 
dor) 

T (en tighter) 



► fra side 17 

I nasste afsni! bliver brugeren trin 
tor trin sat ind i konstruktionen af et 
enkelt program »Privatbudget«. 

Gennemgangen er grundig, og 
kun i fa Eilfaalde var jeg ude »at 
svGmme«. 

Tredje afsnit handler om felter og 
filer, mens de3 fjerde og sidste af- 
snit gennemgar de enkelte dele af 
TLO (The Last One). 

Arbejdet rned TLO 

Programmet arbejder i dialogforrn, 
dvs. programmet stiller hele tiden 
sporgsmai, der skal besvares. og 
en efterfolgende mulighed for at 
fortryde. 

Princippet er, at man i sam- 
arbejde mad computeien opbygger 
et sakaldt flowcart, der er alfa og 
omega i hele den videre "program- 
mering-. 

Det anbefales - og ikke uden 
grund - at man bor saatte sig saade- 
les godt ind t brugervejledningen. 
for man begynder at skabe sine 
egne programmer. 



W 
N 
T 

S 

w 

T 
W 
T 

Out 

E 

D 

S 

w 

Examine books 
D (steel door) 
Use spanner 
S (du er ved talisman) 
W (dor, hvor man skal anvende 
kode) 



Specielt bor man tasnke sit flow- 
card godt igennem, og det er for 
mange Basic-programmorer en ny 
situation, da mange bygger op un- 
der indfastningen. 

Den gar ikke med TLO, Der skal 
programmet vasre 100% gennem- 
tasnkt for man overhovedet gor sig 
den ulejlighed at taande for compu- 
teren. 

Til gengaald bliver slutresultatet 
ogsa et helt professionelt resultat, 
som man med god grund kan vasre 
stolt af. 



Vi!~m Jit. >»lUt'«( » 



Konklusion 

Programmet er ikke billigt. Med en 
pris pa kr. 1.895,00 kober man ikke 



og her er jeg sa gaet i sta. og kan 
ikke komme videre. Hvad nu med 
det kodenumrner? Man skal kombi- 
nere fern ting, man har set og fundet 
talismen? Finde en faellesnasvner. 

Bemasrk, at der omkring nogle af 
kapitlerne er en ramme med numre, 
tal. bogstaver. tekst osv. I kapitel 6 
har vi en talraakke i romertal. Evt. 
find et ord. der er da?kkende for de 
fern ting og omskhv bogstaverne til 
tal. Jeg ved det ikke! Nogen for- 
slag? Ole Brian Poulsen. Amager 

Vi synes, Ole lortjener en hjasl- 
pende hand, kan I hjaslpe. sa skriv 
dine tips om Eureka til os, og ogsa 
om alle de ovrige spil Robin skriver 
om. Adressen kan du se i bladets 
kolofon. Hermed tak fra min sidea 



programme! for kun at program- 
mere en database over sine venner 
og bekendte. 

Koberne skal nok soges i skaren 
af seriose brugere, der har et mere 
eller rnindre professionelt sigte med 
deres programmering. 

THE LAST ONE er ikke et stykke 
legetoj, men et seerdeles effektivt 
slykke programmeringsvaarktoj. 

I kobsprisen er ogsa som noget 
usasdvanligl indkluderet en vis gra- 
tis konsulentbistand. 

Jeg synes, at TLO er et sasrdeles 
interessant bekendtskab, og har 
man brug for at udvikle serios soft- 
ware, er pengene givet godt ud 

I den forbindelse kan nasvnes, at 
etflowcard (forlobsplan). der erud- 
viklet pa en 64'er, hurtigt kan con- 
verteres til f.eks. en IBM. 

Programmet forhandles af: 

A.A. Software 
Helsingforsgade 14 
8200 Arhus N. 
Tlf. 06-10.70.44 



Maerk kuverten »Medarbejder« 
og vi vil sa kontakte dig. 



Hvis du er interesserel sa skriv 
til redaktionen og fortaal lldt om 
dig selv. 



Free-lance medarbejder ved RUN 



Vi har lidt darlig samvittighed her Vi soger derfor en free-lance 

pa redaktionen, fordi vi foler, at vi medarbejder, med speciel inter- 

svigter ejerne af VIC-20, C16 og esse for og viden om dassemaski- 

PLUS/4. ner- 



64 



COMMODORE STILLER MED 

DET ST/ERKESTE HOLD 
TIL EFTERARETS TIPSKAMPE 




MPS SOI - den oraf iske printer 

Skrivt*r alio 64'er ens grattske 
tcgrt, swcultegn og hcioptos- 
ninasqrafik Stint- oysma 
bogslavei I lu'SkeUigesliviel- 
sei S*iivenasiigfted:50tegrt/ 

SOL 




Nu er de her: Data-lipskupanernel TryKt I 
lil udskrrvning pa din njommecompolerB prtntct Oet b 
dor. at du tan udskrive systemkuponer pd minutter. 
fivor det tor log timer 

Commodore nar sliliet el hold med alke de stxrkeste 
professlo'velle: C 64. diskettestallon 1541 og winter BOI. 
Hvis du alteiede har dem. sA skal du kun investere i serve 
progiammet (or a! vaere med I kampen m rmiltonems. 

Hvts du endnu ikke nar en hjemmecomputer, sA 
oegynd med Commodore C 64 - systemtipning er bare el 
at mange omrflder, hvor der er penge og W at spare 
- og (jene! 

Undga npskrampe, tip med Commodore ■ de! er 

oven I kobet Dliligem, end du tror - speoolt hvis I er (tore, 
der gar sammen. Ring til 05-64 11 55 og 13 adrassen 
pa narmeste fatnandlor. Og ga sa ind og fa en gjiundtoj 
demonstraiion. Det or hurOgt, nemt og soandende, 
oghvom vod.. 



Commodore 

Fordi fremtiden fort&ngst 
erbegyndt. 



Commodore 64. 

Superydelse <il lavprw Stan lager kapacitel. hoioplosntiigagtalih |i& larvert. 62 lorsktliige 
gratiske tegn og 3-Stcmmig musiksynttics'Kf (8o*ilavei|. 



Tipsprogram 



Det er svaert at tage hojde for alt 
nar man skal lave et sa komplice 
ret program, som tipsprogram- 
met efterhanden er blevet til. 

Der er altid en eller flere siluati- 
oner, som man ikke har taget hej- 
de for t forste omgang, og som 
forst viser sig, nar programmet 
skal besta sin prove I praksis. 

Med laesernes bistand er vl nu 
kommet frem til en version, der 
fungerer efter hensigten. Da der 
imidlertid er foreiaget en del ret- 
telser, og programmet har vseret 
bragt i »smabidder« over mange 
numre, opfylder vi mange laese- 
res ortske, ved at brings en sam- 
let udlistning af hele program- 
met. 

Vi har undladt alle gamle REM- 
bemaerknlnger, og vi har undladt 
kontrolsummen. 

Udlistningen er en compact'et 
version, men linjenumrene er Ik- 
ke forandret, sa en sammenlig- 
ning med ©get program skulle 
vaere forholdsvis let. 

Da programmet er compact'et, 
er flere linjer laengere end man 




kan lave pa normal made. Disse 
linjer kan imidlertid splittes op i 
flere linier. 

De evrfge computere 

Programmet i den udlistede form, 
korer med fa rettelser pa alle 
commodores hjemmecomputere. 
For PLUS/4 og C16 skal der i star- 
ten tilfojes folgende linjer: 

100 FORI= 1T08 
110 KEYI. (CHRSI + 132) 
120 NEXT 
130 COLOR1.1 

Poke vaardierne I linje 20010- 
20020 skal eendres saJedes: 



Adresse 211 aendres U\ 202 og 
adresse 214 til 205. 

Desuden skal POKE-komman- 
doerne i linje 10015 slettes. 

Tllbage er sa blot et sporgsmal 
om farvevalg, som er en smags- 
sag som kan aendres efter onske. 

Hverken C16 eller VIC-20 har 
hukommelse nok til at rumme he- 
le programmet, der ma deles i fle- 
re mindre programmer efter be- 
hov. 

Desuden skal skaermbillederne 
for VIC-20 rettes til, da det er den 
eneste af computerne, der ikke 
korer med 40 karakterer og 25 lin- 
jer. 

God fornojelse! 



TU lykke 




Redaktionssekretder Grith Axel 
overraekker forstepraemien i lod- 
trsekningen blandt abonnenteme 
til den heldige vinder, F. Skeel 
Andersen. 




Svend Sorensen. depotindehaver i Skive, overraekker Fritz Nielsen for- 
stepraemien i Seven-Up konkurrencen. 



RUN nr. 9 udkornmer den 7. december 1985 
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»qualimetric« 
g0r det lettere 

Vlgordetsuperletforderesdataanleeg: BASFdata-mediamed ••qualimetrio-symboleter 
kendetegnel for perfekt og siKker kvahtet. Fra FlexyDisk lil plademodul er vi I den seer- 
lige situation, at vl kan omsaette vore samlede erfaringer til topprodukter Vi optimerer 
kvalitet lil BASF specialitet Denne ekstrasikkerhedlonnersigoggordet lettere for Dem. 





■p A Q"E? Alle BASF data-media erspecielt 
Dixt^x udv/ikfede, specielt producerede og 

1 -l • i i gennemtestede. Det er BASF's 

• iCVQllT^l malposition en garanti for. Over hole 
verden engageret i kemi og fysik, 
Sffiffdeles erfaren i sarnspi llet mellem 
apparat og medie. Det er grundlaget 
for BASF topkvalitet. 



A/S Badilin 
Ved Stadsgraven 15 
Postboks 1734 (01) 570011 
2300 Kobenhavn S 
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F5S23 58I ID 



HOLSTEBRO BIBLJDTEK 
INFORMATION 

? dOO HOLSTEBEO 



Brikken, derfuldender din PC'er 




lllWIEWOUK 

Professionel dansk software 

Nu kan danske ledere fa et slagkraftigt PC-program, der caler Deres sprog: Dansk. Framework har ale dec, 
som copledere, okonomi- og indkobschefer, marketing- og salgschefer, revssorer m.fl. bor krave af et 
professionelc PC-program. 

Spreadsheets cil analyser og beregninger. Databaser, som holder styr pa adresser m.m. Og grafik, 
der illustrerer tankerne. Tekstbehandling, der er enestiende i enkelhed. Undga alt besvaeret med frem- 
medsprogede rrsanualer og kommandoer. Framework eret verdensnavn, som caler dans-k til danske ledere. 

I foraret blev Framework af analysefirmaet — — — 

Software Digest udvalgt som det bedste af 15 forende 
Integrerede programmer. I Danmark blev Framework 
dec mest solgte integrerede program i I, halvaraf 



1985 ifolge analysefirmaet IDC 
(International Data Corporation). 
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Yes please - |eg mener: Ja tak. send rnig venllgst 

J Brochure om Framework pa danik 

□ Oplysninger om Framework kurser ho* 
auioriserede inentngscenire. 



Navn: _ 
Firma; _ 



Adresse: . 



Toldbodgade 33, 1253 Kobenhavn K, 01-13 0200 

AshtonTate 



• juionww dtiir ibuior for Ashton-Tare 
andrc forefd* iofiwirc leverandorcr 
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| ^osenr.: 

| Kuponen sertdes til 

IBerendsen Computer Products A-S 
Toldbodgade 33, 1253 Kobenhavn K 



